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ABSTRACT 


This thesis presents an interactive computer’ model 
Gesigned to examine the Surface Warfare Officer (SWO) Career 
Path. The model called SWOPATH is designed to provide’ the 


manpower managers with aeéfast, user friendly analytical 


tool. The model is derived from a network representation of 
a SWO career path, the rows’ representing the billet 
activities, the columns the tours of duty. Career paths are 
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The model allows the manager to display current data and 
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i TRODUCTION 


A. BACKGROUND 

The Unrestricted Line Officer Career Planning Guidebook 
describes the Surface Warfare Community as follows: 

The Surface Warfare Community is composed of officers 
who are qualified in the surface warfare speciality, who 
man the surface ships of the Navy and whose goal 1s_ to 
command those ships. The Surface Warfare Officer (SWO)D 
must, through a progression of competitive assignments, 
learn the fundamentals of SS? apa weapons systems, 
and operational tactics. [Ref. 1: p. 3] 

In order to obtain these qualifications, and attain the 
experience and Knowledge necessary to reach the goal of 
command at sea, each surface warfare officer proceeds along 
a sequence of various assignments over a career. This 
sequence of assignments is usually described as a career 
path. There are many factors involved in detailing officers 
to their assignments, resulting in many different career 
paths. However it is possible to classify career paths into 
a small number’ of groups within which all paths exhibit: the 
same basic features. In an NPS thesis entitled “The Effect 
of PCS Policy Changes on Surface Warfare Officer (SWO) 
Career Development” by R. H. HOWE, (Ref. 2], a network 
representation of SWO career paths is developed and used for 
categorizing them. The network is arranged in a rectangular 
array of nodes, where the rows stand for the general 
activities to which officers are assigned, and the columns 
represent the tour sequences, starting with the first, 
through the twelfth tour, in the career of a surface warfare 
officer. Each node in the network represents an assignment 
of a surface warfare officer, specified by an activity anda 


tour number. 
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B. PURPOSE 

The purpose of this thesis is to use this “network 
representation” of the surface warfare officer’s career path 
in developing a computer supported. tool which would 
simulate, or model the movement or flow of surface warfare 
officers within this network. This decision support. tool 
would assist the analyst in evaluating the impact of changes 
in policy that affect the surface warfare officer’s career 
path. By using this model an analyst can address “what if” 
type questions about tour length changes or changes to the 
career paths leading up to major command. For instance’ the 
model might be used to answer the question: “If we increased 
the tour at department head school to one year vice the 
current six months, what impact would that have in 
maintaining a sufficient number of officers available to 
fill executive officer (XO) billets in future years?” To 
answer this question now, the analyst would need to figure 
out how many XO billets were needed to be filled, then 
calculate the effect of changing the number of officers 
leaving department head school to go on to becoming an XO 
via several in between tours. The analyst would need to 
determine how many officers were transferred to where, and 
perform several hand calculations to determine whether all 
the XO billets would be filled. With the speed of a 
computer model the program allows the analyst to perform the 
same calculations much faster and with greater assurance of 
accuracy. The time saved could now be used to evaluate many 


more scenarios than time would permit previously. 


C. THE MODEL 

The model is designed to provide a simulation of the 
flows through the network, representing the surface warfare 
officers career paths, dependent on user input. The model 
is interactive with the user, and provides a menu of choices 


for the user to select from, when proceeding through the 
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model. The model is written as a series of procedures, each 
of which are called upon by the user to carry out various 
functions within the model. These procedures are invisible 
to the user while he is operating the’ model. Complete 
listings of the procedures are provided in Appendix A 
through N. 

The model is written with both a new and an experienced 
user in mind. Wherever there iS an opportunity for the user 
to make a mistake, there iS an error trapping procedure that 
simply provides the user with a displayed warning, 
indicating that an invalid response was made, and the user 
is returned to the exact spot in the program where he _ made 
the error. 

The user iS also provided the opportunity to choose 
whether to use default data provided with the model to 
initialize the variables in the network, or to use files 
that the user may have created when previously operating the 
model. 

The model provides for a display of data in several 
formats. For example, the number of officers at a 
particular tour for all activities allows the user to 
review the data and evaluate the results of the Simulation 
run to be explained below. By utilizing the “PrintScreen“ 
function Cif available) on the user’s micro computer, the 
user can make hard copies of the displays for future 
reference. 

The model simulates the flow of officers through the 
network for a time period chosen by the user. The model 
advances officers in time units of quarters, i.e. it moves 
officers from asSignments to assignments each quarter. 
Selecting to run the simulation, for example, for two years 
means that the model will simulate flows for eight quarters. 

If the analyst were to use the model to answer the 
question posed above, he would change the tour length of the 


assignments that related to department head school, and then 
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establish a limit for the number of XO billets which if 
violated would cause a warning message to be displayed. For 
example, if the analyst is interested in having at least 400 
XO’s, then the analyst would want to Know when there were 
less than 400 X0O’s_ available. The analyst chooses’ the 
number of years to run the model, and observes the results. 
If in fact the change to the tour length of department head 
school reduces the number of officers available for XO 
billets at some future time, then when the number of XO’s 
drops below 400 the model will display a warning message 
that will indicate how long the simulation ran before’ the 
parameter was violated and how many officers currently are 
present. The analyst can then decide whether to make such a 
Change in the tour length. If the change is still desired, 
the analyst. will need to evaluate the effect of other 
changes to the normal career path, e.g. decrease some other 
tour length after department head school, or increase the 
number of officers being transferred to XO billets, or some 
other combination of changes, to insure that once the tour 
length of department head school has been altered, the XO 
billets will still be filled. The analyst would be able to 
utilize the data display capabilities of the model to 
evaluate his alternatives. 


This model was designed with the increased availability 


of micro computers in mind. Written and compiled using 
Turbo Pascal Version 3.0 (Trademark of Borland 
International), this model comes in two versions. One 


version is written to be used on any IBM PC compatible micro 
computer, and another version for the Heath/Zenith Models 
100/110/120 micro computers. Both versions of the model are 
written for color monitors but will run on black and white 
monitors without any changes by the user. Because of the 
increasing availability of micro computers both in_ the 
workplace and in the home, the portability of this model 


should provide for increased usage, without the inherent 
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problems of waiting for terminal availability. 

In summary, the model with data chosen by the user, 
Simulates the flow of officers through a typical career path 
for any number of years ahead. The results can be displayed 
at the user’s options. Data/parameters can be changed by 
the user and another’ simulation can be run at the user’s 
option. Also at the user’s option, data created during the 
simulation, or data/parameters that have been changed by the 
user, can be saved to files named by the user, for future 
use. The model is highly user friendly, with short warnings 
when invalid responses have been chosen. All data can be 
displayed in usable formats. The model thus provides the 
user with virtually an unlimited number of options to 
evaluate policy changes affecting the surface warfare 


officer’s career path. 
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TT. ANALYTICAL DESCRIPTION OF THE MODEL 


The model described in this thesis consists of a network 
of nodes arranged in rows and columns, using either the 
Gefault data provided with the model, or data created by the 
user as he operates the model. The network’s rows represent 
eight activities, such as sea duty or duty in Washington DC, 
to which a surface warfare officer might be ordered. Each 
of the network’s columns represent one of twelve possible 
tours of duty. As shown in Figure 2.1, this creates an 
eight by twelve network of nodes. Each node in the network 
represents an assignment where a surface warfare officer 
might be sent, specified by an activity and a tour number at 
which that assignment occurs. For example, the node "3A" in 
Figure 2.1, would denote an assignment occurring during the 
third tour of duty, at activity "A". Each node also has a 
number attached representing the number of officers so 
assigned. Each node or assignment has a specific tour 
length in quarters. From each assignment, there are arcs or 
transfer paths to any one of the assignments in the next 
column. For example, node “3A” would have eight possible 
transfer paths, to nodes “4A” through “4H”. To each 
transfer path there is a percentage attached which 
represents the percentage of officers transferred from the 
source node at an end of the arc to the destination node at 
the other end of the arc. Each assignment also has a high 
and a low limit constraining the number of officers so 
assigned. For example, the node "3A" might have a high 
limit of 150 officers, and a low limit of 50 officers. The 


program will indicate to the user when a limit is violated. 
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A. THE MODEL’S PARTS 
1. Activities 
In this network, the rows are representing generic 
activities to which a surface warfare officer may _ be 
assigned during his career. These activities are 
categorized as follows: 
a. Professional Training 
Student billets in either the SWO Department 
Head or SWO (Basic) courses longer than 20 weeks. 
b. Professional Education 
Student billets at a postgraduate school or a 
war or staff college of duration longer than 20 weeks. 
c. Washington DC Tour 
Shore duty billets in the Washington 
metropolitan area not meeting any of the criteria in (a) or 
(b) above. 
a. Shore CCONUS) 
Shore duty billets within the continental United 


States ‘not meeting any of the criteria in (a), (b), or (ce) 


above. 
e. Fleet Unit 
Ship’s company sea duty billets. 
f. Afloat Staff 
Afloat staff sea duty billets. 
g. Shore (COUTUS) 
Non-CONUS shore duty billets. 
h. Separation 
Loss of officers to the SWO community. The main 
reasons are resignation (voluntary and involuntary), 
retirement, and lateral transfer to another officer 
community. This last activity, SEPARATION, is included in 


order to provide an “assignment” to account for attrition of 


officers. 
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2. Tours 
Each duty station along the SWO career path that is 
longer than 20 weeks in duration is called a tour of duty. 
The model identifies these as tours starting with the first 
tour and progressing through the twelfth tour. The tours 
are represented by the columns in the network. 
3. Billet Nodes/Assiqnments 
Officers are detailed or ordered to _ specific 
assignments. These assignments can be described by 
specifying an activity and the number of the tour. For 
example, department head school during an officer’s' third 
tour of duty, would be defined in the model as "Third Tour 
Professional Training.” Assignments are represented by the 
nodes in the network. Accessions to the surface warfare 
community are accounted for by the number of officers 
assigned to a specific node, namely the node “First Tour 
Fleet” which is where all officers enter the surface warfare 
community from all sources, the U.S. Naval Academy, Officer 
Candidate School (OCS), Navy Reserve Officer Training 
Courses (NROTC), etc. 
4. Jour hengths 
Each assignment, depending on the activity and when 
the assignment occurs during the officer’s career path, is 
for a specific length of time. The model defines these as 
“Tour Lengths” and allows for each possible assignment in 
the network to be up to 16 quarters (48 months) long, in 
units of quarters. For example, department head _ school 
during an officer’s third tour is two quarters (6 months) 
long. 
5. Arcs/Transfer Paths 
From each assignment, with the exception of the 
activity, “SEPARATION”, the officer proceeds to one of eight 
possible assignments in the next column of the network. For 
example, from the “Third Tour Professional Training”, the 


officer may proceed to another professional training, or a 
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professional education, or a tour in Washington, or _ shore 
duty (CONUS), or a fleet unit, or an afloat staff, or shore 
duty ‘(OUTUS), or possibly. separation. The number of 
officers proceeding to each of the next assignments may be 
expressed as a percentage of the total number of officers 
leaving their last assignments. These percentages will be 
called “Transfer Path Percentages” in the model, and range 
from QO to 100, depending on how many officers can be 
expected to be ordered from one particular assignment to a 
specific next assignment during each quarter. Each billet 
node or assignment in the network Cexcept those in the last 
row), has eight possible transfer paths associated with it. 
Some transfer path percentages assigned to some arcs are 0, 
meaning that no one is transferred along that transfer path, 
and some may be 100, meaning that all officers are 
transferred along that path. 
6. High and Low Limits 

Certain assignments are limited in the number of 
officers that can be assigned to them at any one time. For 
example, department head school may be physically limited to 
approximately 150 seats. The model provides for a 
“user-defined” high Limit which can be established for any 
assignment in the network. A warning is provided to the 
user, when that limit has been exceeded. Conversely, the 
low limits, also “user-defined”, can be used to establish 
whether a billet node has enough officers assigned. The 
model once again will provide a warning to the user when the 
number of officers falls below that low limit. Specific 
instructions for establishing or changing these high and low 
limits will be explained later. 

7. Data Files 
There are five empirical or default data files. 
a. Nodes 
This file contains the number of officers 


assigned to each specific assignment in the _ model. Since 
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each assignment can vary in tour length,the number of 
officers is further broken down by the number of quarters 
they have left to serve at that specific assignment. For 
example, for department head school during the third tour 
there may be 75 officers with one quarter left and 75 
officers with two quarters left to serve before being 
transferred elsewhere. 
b. Arcs 
The transfer percentages for each assignment in 
the network are contained in this file. For example, from 
department head school during the third tour, everyone 
proceeds to a fleet unit. Thus, the transfer percentages 
from “Third Tour Professional Training” to “Fourth Tour 
Fleet Unit” will be 100% and all other transfer percentages 
from “Third Tour Professional Training” will be 0%. 
c. Length 
Each assignment can range from O to 16 guarters 
long. The specific tour lengths for each assign ment are 
contained in this file. For example, for depart ment head 
school during the third tour the data file may list “Third 
Tour Professional Training” tour length as 2, meaning two 
quarters (6 months). 
ad. High Limits 
Each assignment can have a "“user~ defined” high 
limit. The default high limits are contained in this file. 
For most assignments the default high limit is 9999. 
e. Low Limits 
Each assignment can have a “user~ defined" low 
limit. The default low limits are contained in this file. 


For all assignments the default low limit is O. 


B. THE MODEL’S PROCEDURES 
The model is capable of carrying out five major 
procedures: initialization of datas; display of data; the 


calculation of the numbers of officers occupying assignments 
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in future years; changing data values; and saving data. 
These procedures are described below. 
1. Initialization 

The model variables’ initial values are contained in 
files on the disk. The values for the number of officers in 
each assignment by quarters left, the transfer path 
percentages, the tour lengths, and the high and low limits 
are contained in formatted data files that are stored on the 
program disk. The user may also create his own data files 
and these will also be formatted and stored on the disk 
under file names chosen by the user. When the model is 
Started up, the user must choose whether to initialize the 
variables with the default values, or another set of values 
he had previously saved. Each of the data types i.e. 
nodes, arcs, lengths, high and low limits, are formatted 
differently. The program prevents the user from selecting 
an improperly formatted data set during operation of the 
model. It also properly formats data that the user decides 
to save. Although the user could employ other means to read 
these data files, he should not do so, in order to avoid 
accidentally changing the format by unwittingly inserting 
hidden characters, and thus rendering the data file useless 
to the program. 

2. Displays 

The model offers several different types of data 
displays, each designed to highlight a specific type of 
data. 

a. An Activity v.s. All Tours 

This display shows the number of officers 


assigned to a generic activity for each tour. For example, 
FIRST SECOND it LRD..°.... 


WASH DC 14 34 23 


45) 


b. A Tour v.s. All Activities 
This display shows the number of officers during 


a specific tour for all activities. For example, 


EIGHTH TOUR 


PROFESSIONAL TRAINING 0 
PROFESSIONAL EDUCATION 6 = 
WASHINGTON DC 25 
etc... 


c. Transfer Paths From a Billet 
This display shows the percentages and the 
number of officers that would be transferred from a specific 


assignment to all possible next assignments. For example, 


/ Fourth Tour Prof Trng 


/ 0% or O officers 
FROM / 
Third Tour / Fourth Tour Prof Educ 
Prof Trng \ 4 0% or O officers 


45 officers  \ 
\ Fourth Tour Fleet 
\ 100% or 45 officers 


etc. 


ad. Transfer Paths To a Billet 
This display shows the percentages and the 
number of officers that would be transferred from all 
possible previous tour assignments to a specific assignment. 


The percentages listed are the percentages of officers 


Le 


transferred out of all the officers present in various 
assignments of the preceding tour. For example, 


FROM Fourth Tour Prof Trng ~<-\ 


15% or 3 officers \ 
\ 
FROM Fourth Tour Prof Educ <-<--) TO 
10% or 4 officers / Fifth Tour 
/ Shore (CCONUS) 
FROM Fourth Tour Fleet -/ 
100% oor 45 officers / 52 officers 
etc.. 


e. Billet Nodes by Quarters Left 
This display shows the number of officers 
assigned to a specific assignment broken down by the number 
of quarters they have left to serve in that assignment. For 


example, 


Third Tour Prof Trng 


Officers Assigned: 


75 with 1 quarter left 


75 with 2 quarters left 


Owith 3 quarters left 


Pipe... + « 


3. Calculations 
The model manipulates all data by quarter and all 


data is also by quarter. For example, the number of 


ZS 


officers stationed at a specific assignment are identified 
by how many quarters they have left to serve at that 
assignment. The transfer percentages are the percentage of 
officers in their last quarter at their current assignment 
to be transferred each quarter to their next assignment. 
The maximum tour length allowed in the model is 4 years or 
16 quarters. When the model asks for how many years and how 
many quarters to run the model, the program accepts the 
answer and converts it into quarters, then uses that number 
to determine the number of iterations the model should make. 
Upon completing the calculations, the number of quarters is 
converted back into number of years and quarters and 
displayed that way. Each quarter the performs a series of 
calculations. 

a. First, for every assignment in the network, the 
numbers of officers with exactly one quarter left in their 
current assignments are placed in a temporary file. 

b. Second, for every assignment in the network, all 
officers are shifted down to one fewer quarter. For 
example, if in an assignment that is four quarters long 
there were 15 officers with three quarters left, and 10 
officers with four quarters left, after the shift there will 
be 15 officers with two quarters left, and 10 officers with 
three quarters left. 

om Third, the numbers of officers placed in the 
temporary file are multiplied by the appropriate transfer 
percentages and the resultant numbers are placed in the next 
assignments, each with the total number of quarters left 
appropriate for that assignment. For example, if there were 
10 officers placed in the temporary file for the assignment 
"Third Tour Professional Training”, the number 10 is 
multiplied by the transfer percentages for “Third Tour 
Professional Training”, to determine how many of the 10 
officers will be transferred along each transfer path to 


their next assignments. If the transfer percentages for 
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"Third Tour Professional Training” are 20% to “Fourth Tour 
Washington DC*, 70% to "Fourth Tour Fleet", and 10% to 
"Afloat Staff", then 2 officers will be transferred to 
“Fourth Tour Washington DC", 7 to “Fourth Tour Fleet", and 1 
to "Afloat Staff." If the tour length of “Fourth Tour 
Washington DC” is 3 years (12 quarters), the 2 officers 
transferred to that assignment will have 12 quarters left. 
If the tour length for the "°Fourth Tour Fleet” is 2 years 2 
quarters, the 7 officers transferred to that assignment will 
have 10 quarters left, and so on, for the other assignments. 

dad. Fourth, each quarter the program calculates two 
totals. The first total is the assignment total, i.e. the 
number of officers currently assigned to each particular 
assignment. The model adds up all officers assigned regard- 
less of their quarters left in the assignment. The second 
total is the number of officers currently assigned to their 
"“Xth* tour. This procedure sums up all officers currently 
serving their fourth tour, for example, in all activities. 

e. Lastly, each quarter the program matches the 
assignment totals with the high and low limits. [If either 
limit has been violated, the program provides a warning to 
the user (to be fully explained later). 

4. Default Data Files 

There are five different types of data sets used by 
the program. Each one is “formatted” or "coded" 
specifically for its own application, and there is no cross 
use of data sets. The program allows the user to designate 
his own data files and store data of his choice. These 
files are also specifically “formatted” for the data _ type 
and stored by the program. The five types of data sets used 
are: 

a. Nodes’ Data 

The default data file is called “Nodes” and 

contains the number of officers assigned to each assignment, 


by quarters left. If the user uses a directory program 
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Coutside the model) to determine which files are on the 
program disk, all data files that contain nodes data are 
listed as having the filetype “nod”. This filetype will not 
display during operation of the program, and the user should 
not declare it when naming files in the program. The 
program will automatically assign “nod”“ as the filetype on 
all nodes type data files. 
b. Arcs Data 
The default data file is called “Arcs” and 
contains the transfer percentage for each transfer path in 
the network. If the user uses a directory program to 
determine which files are on the program disk, all data 
files that contain arcs data are listed as having filetype 
"ard". This filetype will not display during operation of 
the program, and the user should not declare it when naming 
files in the program. The program will automatically assign 
“ard” as the filetype on all arcs type data files. 
c. Length Data 
The default data file is “Length” and contains 
the tour length, in quarters, for every assignment in the 
network. If the user uses a directory program to determine 
which files are on the program disk, all data files that 
contain length type data are listed as having filetype 
“led”. This filetype will not display during operation of 
the program, and the user should not declare it when naming 
files in the program. The program will automatically assign 
“led” as the filetype on all length type data files. 
ad. High Limit Data 
The default data file is called “Hilimit” and 
contains the upper constraints for the number of officers in 
each billet. If the user uses a directory program to 
determine which files are on the program disk, all data 
files that contain Hilimit data are listed as having 
filetype “hid”. This filetype will not display during 


Operation of the program, and the user should not declare it 
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when naming files in the program. The program will 
automatically assign “hid” as the filetype on all high limit 
type data files. 

e. Low Limit Data 

The default data file is called “Lolimit” and 
contains the lower constraints for the number of officers in 
each billet. If the user uses a directory program to 
determine which files are on the program disk, all data 
files that contain low limit data are listed as having 
filetype “loa”. This filetype will not display during 
operation of the program, and the user should not declare it 
when naming files in the = progran. The program will 
automatically assign “lod” as the filetype on all low limit 
type data files. 

5. Saving the Model’s Data 

When the user has completed a_ session with the 
model, he may desire to save the data currently in the model 
network, for instance, the current number of officers in 
each assignment, the current transfer path percentages, the 
current assignment tour lengths, or the current high or low 
limits. The model is capable of properly formatting each 
Gata type and saving it in one of three ways: 

a. The user will be provided the opportunity to 
save each data type in a new file named by the user in which 
case the model will create a file using the name made up by 
the user, on the program disk, and transfer the current 
values of that data type into the new file. The data will 
automatically be properly formatted, thus allowing the user 
to recall this data for use in the future. For example, the 
user may wish to save the high limit data as a new file 
called “Newhigh,” in which case the model will automatically 
assign that file the filetype “hid”. 

b. The user will be provided the opportunity to 
save each data type to a file already existing on the disk. 


The model will warn the user that saving data to an existing 
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file, will overwrite/destroy the previously saved data. For 
example, when the user chooses to save the high limit data 
to a file, the display will show the names of all the files 
on the disk that currently contain high limit data. If the 
user had previously created a file called ‘“Newhigh", then 
this file would be listed. If the user now chose to save 
the current data to a file also called “Newhigh”, then the 
old data in the file "Newhigh” would be 
overwritten/destroyed, and the data file “Newhigh" would now 
contain the current high limit data only. 

S. The user will be also be provided the 
opportunity to replace the data in the default data file 
with the current data. The model will warn the user that 
replacing the default data file with the current data is a 
permanent step. The old default data is then lost, and when 
the program initializes with the default data, it will be 
with the “new” default data. 

6. Changin Data 

The model is also capable of changing the values of 
the various types of data the model uses, while the user is 
operating the model. To do so the user selects the option 
to change data from a menu, and by following the prompts can 
change the following data: 

a. The Number of Accessions 

The number of accessions into the surface 
warfare officer community. This is a single number’ that 
indicates the number of officers that have entered the Navy 
and have embarked on a career in the surface community. 
Since all prospective surface warfare officers begin their 
surface warfare careers at the Surface Warfare School 
(Basic), followed by their first tour at sea, the model uses 
the assignment “First Tour Fleet”, to account for all 
accessions to the surface warfare officer community. This 
number remains the same every quarter Cunless changed by the 


user), and new officers to the community only enter through 
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this assignment. The user can evaluate the impact of a 
greater or lesser number of accessions on the surface 
warfare officers career path by changing the number of 
accessions and using the model to make further computations. 
b. The Transfer Path Percentages 

The user may decide to evaluate the impact of 
changes to the path surface warfare officers take over’ the 
course of their career. One change might be to increase the 
number of officers that are ordered to professional 
education during their eighth tour. By changing the 
transfer path percentages from all activities in the seventh 
tour to increase the number of officers from those 
assignments to “Eighth Tour Professional Education”, and 
then operating the model, the user can evaluate the effect 
that changes in the transfer paths percentages have on how 
many officers are ultimately transferred to the assignment 
“Eighth Tour Professional Education”, and what impact’ this 
change has on tours nine through twelve. The increased 
number of officers being assigned to professional education 
in their eighth tour may decrease the officers available to 
be assigned to other eighth tour activities, and cause a gap 
of unfilled assignments in tours nine through twelve. 

c. Tour Lengths 

The user has the ability to alter the tour 
length of any assignment in the network. The user may 
choose to lengthen (Cup to a maximum of 16 quarters), or 
shorten a tour (down to a minimum of O quarters). If the 
user chooses to lengthen the tour from 4 quarters, to say, 6 
quarters, the -model assumes that those officers currently 
serving in the assignment will not have their tours extended 
to meet the new’ tour length but instead will leave as 
previously scheduled. Similarly, if the user chooses to 
shorten the tour, those officers currently serving in_ the 
assignment will continue to stay at that assignment until 


they have completed their original schedule. 
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ad. High Limit Numbers 

The user can change the high limit numbers for 
any assignment. This allows the user to set up a high Limit 
constraint, run the model for “X" years and determine if the 
high limit constraint is ever violated. For example, in 
department head school, the physical seating capacity for 
students may be 150 seats. Of those students attending 
department head school, some are in their third tours and 
some in their fourth, e.g. 80% in their third tour, and 20% 
in their fourth tour. So 120 seats can be occupied by third 
tour officers and 30 seats can be occupied by fourth tour 
officers. These numbers may be used as the high limits that 
are imposed on the assignments, “Third Tour Professional 
Training” €120) and "Fourth Tour Professional Training" 
C30). If while running the model these high limits are 
exceeded, the model warns the user, and provides him with 
options (explained in detail later) from which to choose. 

e. Low Limit Data 

The user can also change the low limit numbers 
for any assignment in the network. Using the previous 
example of the department head school, the user may wish to 
make sure that at least 110 officers on their third tour and 
15 officers on the fourth tour, are currently assigned to 
department head school. The user should change the low 
limit data for the “Third Tour Professional Training” to 110 
and "Fourth Tour Professional Training” to 15. When the 
model makes the calculations and finds that the number of 
officers in the assignment "Third Tour Professional 
Training” falls below’ the low limit €110) the model warns 
the user and provides him with options Cexplained in detail 


later) from which to choose. 


i einitializing th a 
The user is also provided the opportunity to 
reinitialize some or all of the data types, i.e. nodes, 
arcs, length, hilimit, and lolimit. For example, after 
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running the model for three years and not violating a low 
limit for "Third Tour Professional Training” (110), the user 
may wish to change the low limit to 115 officers, and run 
the model again for three years, to see if this new low 
limit will be violated. Without reinitializing the model’s 
data, the model would commence running with three years 
calculations already completed, and the result would be a 
total of six years calculations into the future. Instead, 
the user may desire to reinitialize the nodes data, and any 
other data type of his choosing, and then run the model § for 
three years. One word of warning is necessary here. If the 
user chose to change the low limit from 110 to 115 officers, 
and then decided to reinitialize the low limit data, the net 
result would be to destroy the change the user had made to 
the low limit data, because the low limit for “Third Tour 
Professional Training” would also be reset to the value 
found in the initial low limit data file. For that reason, 
the user is provided the opportunity to reinitialize 
separately each of the following data types: the nodes data, 
the arcs data, the length data, the high limit data, and the 
low limit data. 
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III. PROCEDURES FOR USING MODEL 





A. THE DISTRIBUTION DISKS 
The model package contains four disks. Two are labeled 
"IBM Compatible”, Distribution Disks I and II, and two are 
labeled “Heath/Zenith 100” Distribution Disks I and II. 
This model was written in two versions, one for use on any 
IBM-PC compatible and one for use on a Heath/Zenith 100 
micro computer. Both versions require MSDOS Version 2.0 or 
the equivalent. Since each requires a different operating 
system, they are not interchangeable between micro computers 
with different operating Systems. Color has been used in 
the displays to enhance the prompts, but the program will 
still run using a black and white monitor, with no 
degradation. Distribution Disk I[ contains all the files 
necessary for the program to run, including the main 
program, plus the six default data files. The following is 
a list of the files contained on Distribution Disk I: 
SWOPATH.COM 
NODES .NOD 
NODEZERO.NOD 
ARCS.ARD 
LENGTH.LED 
HILIMIT.HID 
LOLIMIT.LID 
Note: After operating the program, the user may have 
created one or more additional data files, that will also be 
listed on the directory of the “working copy" of 
Distribution Disk I. 
Distribution Disk II contains the source code listings 
for the model’sS main program for those users interested in 
performing possible future changes to the program. . These 


listings are also printed in Appendices A through N. This 
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disk also includes a program called UPDATE.COM that allows 
the user to reenter’ the assignment data in the NODES.NOD 
default data file. The following is a list of the files 
contained on Distribution Disk II: 

SWOPATH. PAS 

ZENUTILS.PAS Conly on Heath/Zenith disks) 

IBMUTILS.PAS Conly on IBM Compatible disks) 

LOGO.PAS 

INITDATA.PAS 

SELECTIO.PAS 

CALCULAT.PAS 

TOTALS. PAS 

CHGDATA.PAS 

SCREENS.PAS 

DISPLAYS.PAS 

DATADUMP. PAS 

ANSWERS .PAS 

STORDATA. PAS 

UPDATE.COM (listing not included) 


B. GETTING STARTED 

The user should select the two distribution disks 
labeled for use on his micro computer (Either the “IBM 
Compatible” disks, or the "“Heath/Zenith 100° disks.). The 
distribution disks are not copy-protected for the user’s 
convenience. The user is reminded that this product is U.S. 
Government property and all appropriate rules for such 
apply. The DISKCOPY command should be used to make exact 
copies C"working copies") of each distribution disk. The 
original distribution disks should be Kept separately in a 
Safe place. The working copy of Distribution Disk I should 
now be placed into drive A. 
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C. SAMPLE PROGRAM EXECUTION 

The following will be a detailed explanation of how the 
program works, including actual displays (some _ slightly 
modified, due to space considerations) that the user can 
expect to see, if the user follows the procedures described 
in the text. Entries required to be made by the user are 
indicated within quotation marks. For example, if the user 
is required to press the letter A, it will be indicated in 
the text as "A", if the user is required to press the number 
8 and then press carriage return (enter, or return), this 
will be indicated in the text as “8<CR>". All character 
entries will be indicated in the text by upper case letters. 
It is not necessary for the user to use upper case letters 
when making entries since the program will recognize either 
upper or lower case responses as correct. 

1. Selectin ut Data le 

To start the program, type “SWOPATH<CR>” at the 

prompt: A>. The first screen will be the logo including the 
version number of the program, which will automatically 


change to the display depicted in Figure 3.1 below. 


Do you want to change the input data files from those 
listed below? 


Data: Data files: 
fe) No changes wanted/finished changes. 

1 Number of officers at each assignment: Nodes 

2. Transfer pale percentages: Arcs 

3. Assignment tour lengths: Length 

4. High Limits: Hilimit 

5 Low limits: Lolimit 


Type your selection (0,1,2,3,4,5]5 


Figure 3.1 Input Data File Screen 


This screen provides the user with the option of 
utilizing the default data files listed, or changing to a 
data file of the user’s choice. If the user chooses 


something other than 0,1,2,3,4,or 5, the program provides 
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the brief message near the bottom of the screen, ’Your 
response is incorrect, please try again’, and returns to the 
original screen shown in Figure 3.1 above. As an example, 
let’s choose to change the data file for the number of 
officers at each assignment by pressing "1". Figure 3.2 is 


the display that now is on the screen. 





Remember, you must choose a data file that you have 
previously saved. Those are listed below. 


NODEZERO 
NODES 
Enter the input filename 
typed exactly as listed above, 


that you choose to use: 


Type NODES if you want to exit back to menu. 
Figure 3.2 Change Data File Screen 


The two files ’NODEZERO and NODES’ are the only 
files, currently on the distribution disk, that contain the 
formatted data indicating the number of officers at each 
assignment. If the user wanted to return to the previous 
menu, Figure 3.1 without making any changes he would follow 
the instruction on the last line of the display in this case 
typing the word NODES. If the user types a filename other 
than one of those listed, the program provides a brief error 
message and returns to the screen in Figure 3.2. If the 
user has earlier created his own assignment data files, they 
would be listed along with the NODEZERO and NODES files. 

If the user had chosen "2" from the screen shown by 
Figure 3.1 the next screen display would be similar to that 
in Figure 3.2, but would instead list the files containing 
transfer path percentage data. Similar statements may be 
made for choices 3, 4 or 5. 

In this example we will select NODES by entering 


"NODES<CR>". The program now returns to the screen in 
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Figure 3.1, to provide the user the opportunity to make 
another change in the input data files. After all desired 
changes have been made, typing "0" will so indicate to the 
program which will then respond by printing across” the 
bottom of the screen, ’Initializing . . . . ’. =The 
program is now reading each data file into memory storage. 
Each time it reads a data file into memory, it informs the 
user by printing the initializing message. Once it 
completes reading in all five data files, the program 
automatically proceeds to the next display shown in Figure 
3036 


Currently the number of accessions each quarter is 
350 officers 
The new number of accessions each quarter is: 


Press <CR> for no change. 


Figure 3.3 Change Number of Officer Accessions Screen 
2. Initializing the Number of Officer Accessions 


This screen provides the user with the opportunity 
to initialize the number of officer accessions used by the 
program. The default value for officer accessions per 
quarter is 350 officers. The user can either type a new 
number or by just pressing the carriage return,”<CR>"“, the 
user accepts the the default number of officer accessions 
and the program automatically displays the next screen, 
Figure 3.4. 

fe e Selectio enu 

This screen provides the user with the primary 
options he will require to operate the program. From this 
selection menu the user can display data, change data, 
reinitialize data values or conduct calculations. Note at 
the top of the screen that the program tells the user for 


how many years and quarters the calculations have been 
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completed. No calculations have been performed yet, so the 
indication is O years and O quarters. So far the only 
operation the program has conducted was to read in the data 


to fill the network with the required values. 


Calculations have been completed for O years and O quarter 


Choose one of the following selections. 


QO. All-finished. 

1. Review the Saldae | selections. 

2. Display an activity v.s. all tours 

3. Display a tour v.s. all activities 

4. Display the transfer paths FROM an assignment 
5. Display the transfer patie TO an assignment 
6. Display the assignments by quarters left 

7. Change data values 

8. Reinitialize data values. 

9. Ready for calculations. 


Please type in the number of your selection 
: OR 25554,9,6,/,8,9 3 


Figure 3.4 Selection Menu Screen 


4. Data Displays 
a. Activity v.s. All Tours 
By pressing °2”" to display an activity v.s. all 
tours the program first provides the user with a menu (see 
Figure 3.5) from which to choose the activity the user 


wishes to see. 


Which activity are you interested in? 


Professional Training 
Professional Education 
Washington DC 

CONUS) 

Afloat Staff 

Shore COUTUS) 
Separation 


Lomond wY 
ep) 
> 
Oo 
ry 
m 


Type your choice: 


Figure 3.5 Display Activity v.s. Tour Selection Screen 


When selecting Shore (CONUS) by pressing “D" the 
program indicates the number of years and quarters for which 


calculations have been completed. It indicates that the 
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user chose the activity, Shore (CONUS), and then provides a 
breakdown of the number of officers serving in a Shore 
CCONUS) assignment during their first tour, second tour, 
etc.. (See Figure 3.6) For instance, there are 204 officers 
currently in their fourth tour, serving in an assignment 
that falls under the general activity, Shore (CONUS). The 
program then provides the user with the opportunity to 
display another activity breakout. By answering ’Y’ ~~ the 
user - would see the screen depicted in Figure 3.5 above, and 
have the opportunity to choose a different “activity v.s. 
tour” breakout. If the user desires to display no other 


activities he types °N”. 


For O years and O quarter(s) calculations. 
For: Shore (CONUS) 


TOURS esr 0 > s.b ewer 
FIRST SECOND THIRD FOURTH FIFTH SIXTH 
0 780 270 204 204 300 
SEVENTH EIGHTH NINTH TENTH ELEVENTH TWELFTH 
“300 300 350 200 300 ) 


Do you desire to see another activity breakout? CY/N) 


Figure 3.6 Activity v.s, Tour Breakout Screen 


The user is then returned back to the Selection 

Menu shown in Figure 3.4 above. 
b. Tour v.s. All Activities 

By pressing “3", the program first provides the 
user with a menu (Figure 3.7) in order to choose which tour 
the user wishes to examine. Note that the display prompts 
the user to type the number of his choice and then to press 
the carriage return Key <CR)D. 

When selecting the Fourth Tour by entering 
"4<CR>", the program again ‘indicates for how many years’ and 


quarters calculations have been completed. The display also 
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indicates that the user chose the Fourth Tour, and then 
provides a breakdown of the total number of officers who are 


Which tour do you wish to see displayed? 


TOUR 

l. IRST 

2. SECOND 

3. THIRD 

4. FOURTH 

5. FIFTH 

6. SIXTH 

7. SEVENTH 

8. EIGHTH 

9. NINTH 

10. TENTH 

li. ELEVENTH 

12. TWELFTH 
TOUR: (type number<CR)) 
Figure 3.7 Display Tour v.s, Activity Selection Screen 


in their Fourth Tour by assignments categorized as 
Professional Training, Professional Education, Washington 
DC, Shore (CONUS), etc.. (see Figure 3.8) For instance, 





For O years and O quarter(s) calculations. 
For: Fourth Tour 


Activity: Number of officers 
Professional Training : D0 
Professional Education : 200 
Washington DC : 168 
Shore (CONUS) : 204 
Fleet Unit ; 480 
Afloat Staff : 96 
Shore (OUTUS) : 24 
Separation : 0 
Total Officers : 1222 


Do you desire to see another tour breakout? (Y/N) 





Figure 3.8 Tour v.s., Activity Screen 
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there are 204 officers currently in their Fourth Tour, 
serving in an assignment that falls under the general 
activity, Shore (CONUS). The program then provides the user 
with the opportunity to display another tour breakout. By 
answering ’Y’ the user would see the screen depicted in 
Figure 3.7 above, and have the opportunity to choose a 
different “tour v.s. activity” breakout. By typing “N"” the 
user is returned back to the Selection Menu shown in Figure 
3.4 above. 
c. Transfer Paths From an Assignment 
By pressing "4" to see a display for the 


transfer paths from an assignment the program will provide 


Which assignment do you wish to see 
the transfer paths from? 


TOUR ACTIVITY 

1. FIRST A. PROFESSIONAL TRNG 
2. SECOND B. Nena = Del EDUC 
3. THIRD C. WASHINGT DC 

4. FOURTH D. SHORE CONUS 

5.) -FIETH E. FLEET UNIT 

6. SIXTH F. AFLOAT STAFF 

7. SEVENTH G. SHORE OUTUS 

8. EIGHTH H. SEPARATION 

9. NINTH 

iO. TENTH 

11. ELEVENTH 

12. TWELFTH 

TOUR: (type number<CR)) ACTIVITY: (type letter) 


Figure 3.9 Display Transfer Paths FROM Selection Screen 


the user with a menu (see Figure 3.9) to select which 
assignment the user wants to see the transfer path 
percentages FROM. Note that once again the display prompts 
the user to type a number and then press the carriage return 
<CR>. If the user selects either TWELFTH TOUR or the 
SEPARATION activity, the program will briefly warn the user 
that there are no transfer paths FROM either of these _ two 


options, and then allows the user to change his selection. 
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Pressing “3<CR>” and then “F" to select the THIRD TOUR, 
AFLOAT STAFF assignment. Figure 3.10 will appear on the 


next screen. 





/-TO Fourth Tour Prof Trng 
hs 60% or 10 officers 
/----TO Fourth Tour Prof Educ 
10% or 2 officers 
Display for / 
Q years and (2SSsos= TO Fourth Tour WashDC 
QO quarters yo 10% or 2 officers 
ferrrerr---- TO Fourth Tour Shore (CONUS) 
Third Tour eos’ .oceas 20% or 3 officers 
16 officers \errrerr--- TO Fourth Tour Fleet Unit 
will be viene fe Ue. O% or O officers 
\errrc-- TO Fourth Tour Afloat Staff 
\ O% or O officers 
\---TO Fourth Tour Shore (COUTUS) 
an O% or O officers 
\TO Fourth Tour Separation 
0% or O officers 


Do you desire to see another transfer path breakout?CY/N) 


Figure 3.10 Transfer Path Percentages FROM Screen 


Once again the program indicates for how many 
years and quarters calculations have been completed and 
indicates assignment the user has selected to see the 
transfer path percentages FROM. The display shows how many 
officers will be transferred from the Third Tour Afloat 
Staff assignment and then on the right, indicates where 
those officers will be transferred. In Figure 3.10 the 
display shows that 16 officers will be transferred. This 
means that at the Third Tour Afloat Staff assignment there 
are 16 officers with one quarter left to serve. When the 
program begins calculations these 16 officers will be 
transferred as shown in the figure. Namely, sixty percent, 
or 10 of those 16 officers will be transferred to a Fourth 
Tour Professional Training assignment, ten percent or 2 


officers will be transferred to a Fourth Tour Professional 
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Education assignment, etc.. The individual numbers may not 
sum up to the total officers transferred due to rounding. 

Once again the program provides the user with 
the opportunity to choose to see another transfer path 
breakout. If the user chooses ’Y’, then the screen shown in 
Figure 3.9 will appear and the user may again select an 
assignment. By pressing “N° the program will return to the 
Selection Menu shown in Figure 3.4. 

dq. Transfer Paths To an Assignment 

Pressing "5" to display the transfer paths TO an 
assignment, Figure 3.11 shows the Screen the user will see. 

On this screen the program provides the user 
with a menu for selecting to which assignment the uSer wants 
to see the transfer path percentages. Note that once again 
the display prompts the user to type a number and then press 
the carriage return <CR>. If the user selects FIRST TOUR 


the program will briefly warn the user that there are _  09no 


Which assignment do you wish to see 
the transfer paths to? 


TOUR ACTIVITY 

1. FIRST A. PROFESSIONAL TRNG 
2. SECOND B. PROFESSIONAL EDUC 
3. THIRD C. WASHINGTON DC 

4. FOURTH D. SHORE CONUS 

5. FIFTH E. FLEET UNIT 

6. SIXTH F. AFLOAT STAFF 

7. SEVENTH G. SHORE OUTUS 

8. EIGHTH H. SEPARATION 

9. NINTH 
Loe ENTH 

11. ELEVENTH 
12. TWELFTH 

TOUR: (type number<CR)) ACTIVITY: (type letter) 


Figure 3.11 Display Transfer Paths TO Selection Screen 


transfer paths TO that option, and then allows the user to 


change his selection. Pressing “6<CR>” and then “E" to 


42 


select the SIXTH TOUR, FLEET UNIT assignment, a screen 
showing Figure 3.12 will appear next. 





FROM Fifth_Tour Prof Trng SBE | 
100% or 5 officers ‘eg 
FROM Fifth Tour Prof Educ £------ \ 
60% or 1 officers \ 
\ Display for 
FROM Fifth Tour WashDC -—) -=""-<---- \ O years and 
95% or 8 officers mn O quarters 
FROM ace Tour Shore (CCONUS) cere crererer---- \ TO 
95% 16 officers > Sixth Tour 
el Fleet Unit 
FROM Fifth Tour Fleet Unit  cerrrrr----- 
5% or 2 officers ng "38 officers 
FROM Fifth Tour Afloat Staff ---*--+--- / 
9% or 2 officers / NOTE: Percentages 
- reflect the % oO 
FROM Fifth Tour Shore (COUTUS) ----- / officers trfd OUT 
90% or 4 officers / OF the FROM 


assignment. 
Do you desire to see another transfer path breakout?(Y/N) 


Figure 3.12 Transfer Path Percentages TO Screen 


Once again the display indicates the number of 
years and quarters for which calculations have been 
completed, and indicates the tour, Sixth Tour Fleet Unit, 
that the user selected to see the transfer path percentages 
TO. This display allows the user to determine where the. 
officers being transferred into the assignment he is 
interested in are coming from. The information on the left 
side of this screen is the percent of the total officers in 
their last quarter at the indicated FROM assignment that 
will be transferred to the selected TO assignment. The 
number following the percent figure in each row is the 
actual number of officers to be transferred FROM the 
indicated assignment in each row on the left TO the 
assignment on the right side of the screen. For instance, 
there will be 16 officers transferred from Fifth Tour Shore 
CCONUS) to Sixth Tour Fleet Unit. The 16 officers are 
ninety five percent of all the officers assigned to Fifth 
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Tour Shore (CONUS) with one quarter left. Occasionally 
there will be a percent indicated, yet O officers shown to 
be transferred. This occurs when there are no officers with 
one quarter left at the FROM assignment. Also the numbers 
of officers on the left may not sum to the number indicated 
as the total transferred due to rounding. Choosing ’Y’ will 
return the user to the display shown in Figure 3.11, to 
select another assignment to which he may want to display 
the transfer path percentages. If the user is finished, he 
would press "“N“ and thereby return to the Selection Menu of 
Figure 3.4. 
e. Assignment by Quarters Left 

Figure 3.13 - shows the screen the user will see 
when pressing "6" to display the assignments by quarters 
left. 


Which assignment do you wish to see? 


TOUR ACTIVITY 

1. FIRST A PROFESSIONAL TRNG 
2. SECOND B PROFESSIONAL EDUC 
3. THIRD C WASHINGTON DC 

4. FOURTH D SHORE CONUS 

5. FIFTH EB FLEET UNIT 

6. SIXTH F AFLOAT STAFF 

7. SEVENTH G SHORE OUTUS 

8. EIGHTH H SEPARATION 

9. NINTH 

10. TENTH 

11. ELEVENTH 

12. TWELFTH 

TOUR: (type number<CR>) ACTIVITY: (type letter) 


Figure 3.13 Display ee by Quarters Left 
Selection creen 


The program here provides the user with a menu 
to select which assignment from which the user wants to see 
the breakout of officers assigned by quarters left. Again 
the display prompts the user to type a number and then press 


the carriage return <CR>D. 
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Pressing ‘“9<CR>"~ and then ‘G" to select the 
NINTH TOUR, SHORE OUTUS assignment Figure 3.14 will appear 


on the next screen. 





After 0O ge and O quarter(s) 
Ninth Tour Shore COUTUS) 
menour wengin Of I2 quarters. 
Officers assigned 


e) Wino Siegqtre leit 
5 woe 2 Gers left 
5 With 3 qtrs left 
3} with 4 qtrs left 
5 with 5 qtrs left 
5 with 6 qtrs left 
5 With 7 qtrs left 
5) with 8 qtrs left 
5 with 9 qtrs left 
5 with 10 qtrs left 
5 wWaeptioehe Qtrs left 
5 with 12 qtrs left 
0 with 13 qtrs left 
0 with 14 qtrs left 
Q Wenn Gtrs lett 
0 With 16 qtrs left 
The total number of officers assigned is 60 
Do you desire to see another assignment?CY/N) 


Figure 3.14 Officers Assigned by Quarters Left Screen 


Here, the program indicates the years = and 
quarters for which calculations have been completed and 
indicates the assignment selected by the user, Ninth Tour 
Shore (OUTUS). This display also indicates the tour length 
of the assignment. As discussed previously, the maximum 
length of any assignment in the model is 16 quarters. 
Although not all assignments are for 16 quarters, the 
display will always show 16 quarters of information. Note 
that there are O officers assigned with 13, 14, 15, and 16 
quarters left. 

The display also indicates the total number of 
officers assigned to the selected assignment. 

As before the program provides an opportunity 
for the use to choose to see another display of officers 
assigned by quarters left. If finished, pressing “N* 


returns the user to the Selection Menu of Figure 3.4. 
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This completes the examples of the different 
types of displays available with the program. If a less 
experienced user desires to review the displays, selection 
number 1 of the Selection Menu of Figure 3.4 will provide 
him with a brief review of each of the available displays. 

S. Changing Data 
In order to change data values, the user must press 
"7" from the List on the Selection Menu of Figure 3.4. 
Figure 3.15 shows the next screen the user can expect to 
see. 


Which data do you desire to change? 


Input data Data file 
QO. No changes/finished changes. 

1. Number of officer accessions. 

2. Transfer pale percentages: Arcs 

3. Assignment tour lengths: Length 

4. High limits: Hilimit 
5. Low limits: Lolimit 


Type your selection (0,1,2,3,4,5]: 
Figure 3.15 Data Change Menu Screen 


Here, the program provides the user with the 
opportunity to change all the data in the program with the 
exception of the number of officers presently assigned to 
each billet. In addition to listing the possible categories 
of input data the user might wish to change, the display 
also indicates the data file the program is presently 
employing to establish that data, where applicable. The 
menu in Figure 3.15 allows the user to select the data he 
desires to change. 

a. Changing the Number of Accessions 

Pressing “1" to select the number of officer 


accessions the screen will show Figure 3.16. 
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Currently the number of accessions each quarter is 
350 officers. 


The new number of accessions each quarter lis: 
ress “CRD for no change. 


Figure 3.16 Changing Number of Officer Accessions Screen 


This Gisplay shows the number of officers 
entering the Surface Warfare Officer Community from all 
sources, each quarter. The program provides the user an 
opportunity to change this number by simply typing the new 
number and pressing the carriage return. I[f the user does 
not want to change the value then pressing the carriage 
return "<CR>“Keeps the number of officer accessions at 350 
officers. The program displays the new number of officer 
accessions as selected by the user and then returns to the 


change menu shown in Figure 3.15. 


Which assignment do you wish to change the path * from? 
TOUR ACTIVITY 


im FIRST A. PROFESSIONAL TRNG 
2. SECOND B. PROFESSIONAL EDUC 
3. THIRD C. WASHINGTON DC 

4. FOURTH D. SHORE CONUS 

5. FIFTH E. FLEET UNIT 

6. SIXTH F. AFLOAT STAFF 

7. SEVENTH G. SHORE OUTUS 

8. EIGHTH H. SEPARATION 

9. NINTH 

10. TENTH 

11. ELEVENTH 

12. TWELFTH 

TOUR: (type number<CR>) ACTIVITY: (type letter) 


Figure 3.17 Change Transfer Path Percentages 
Selection Screen 


b. Changing the Transfer Path Percentages 
Pressing “2° to select transfer path percentages 


the screen will show Figure 3.17. 


47 


The program here provides the user with a menu 
to select from which assignment the user wants to change the 
transfer path percentages. 

Pressing "3<CR>" and the "E* to select the THIRD 
TOUR FLEET UNIT assignment the screen will show Figure 3.18. 
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Tour Separation 


Which path % do you wish to change?(CA-H)or(@ to quit) 


Figure 3.18 Change Transfer Path Percentages Screen 


This display shows the current transfer path 
percentages from the indicated assignment to each assignment 
in the next tour. Note the program prompt at the bottom of 
the screen. Selecting "A" the cursor will move to the line 
below “TO A: Fourth Tour Prof Trng” just before the 5%. To 
change the transfer percentage, simply type the new value 
and press the carriage return. For example, typing “30<CRD” 
the display will change in two places. Where before the 
percentage read 5% in normal video, it now reads 30% in 
reverse video. The reverse video feature is to indicate to 
the user that he has changed that particular value. The 
second display change is where the percent. total is 


indicated. The number displayed will be 125%, displayed in 
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reverse video to indicate to the user that a change has 
occurred. The reverse video feature will occur whether the 
user changes the percentage or simply types the exact’ same 
percentage again. After making the above change, the cursor 
has now returned to the bottom of the screen, prompting 
another change. 

If the user now types "@* to quit this section 
of the program a warning will be displayed at the bottom of 
the screen to indicate to the user that he cannot leave this 
section of the program, until he forces the percent total to 
equal either zero, or one hundred percent. The user In the 
present case the user is warned that the percent total does 
not equal either zero or one hundred, the current percent 
total (here 125%) is displayed, and he is instructed _ to 
continue to make changes to the transfer path percentages 
until one of the mentioned totals is achieved. The user is 
then returned to the original prompt and asKed which path 
percentage the user desires to change. This time pressing 
"D" to change the transfer percentage to Fourth Tour Shore 
CCONUS) the cursor has moved to immediately before the 85%. 
Typing “60<CR>", the percentage should now be highlighted in 
reverse video, and the percent total should now read one 
hundred percent. The cursor also returns to the bottom of 
the screen, to prompt the user for another change. Now that 
the 100 percent total has been achieved, typing "Q" allows 
the user to leave this section by asking him if he desires 
to change another transfer path percentage. Typing "N"“, the 
program automatically returns to the change menu of Figure 
o45. 

c. Changing the Assignment Tour Lengths 
Pressing “3" for assignment tour lengths, the 


screen will show Figure 3.19. 


49 


Which assignment tour length do you wish to change? 
TOUR ACTIVITY 


lL. /£RST A. PROFESSIONAL TRNG 
2. SECOND B. PROFESSIONAL EDUC 
3. THIRD C. WASHINGTON DC 

4. FOURTH D. SHORE CONUS 

5. FIFTH E. FLEET UNIT 

GS. SHentn F. AFLOAT STAFF 

7. SEVENTH G. SHORE OUTUS 

8. EIGHTH H. SEPARATION 

9. NINTH 
10. TENTH 
lt. ELEVENTH 
12. TWELFTH 

TOUR: Ctype number<CR>) ACTIVITY: (type letter) 


Figure 3.19 Change Assignments Tour Length Selection Screen 


Here the program provides the user with a menu 
to select the assignment for which the user wants to change 
the tour length. Figure 3.21 shows the next screen the user 
will see when pressing "3<CR>” and then “E” to select the 
THIRD TOUR, FLEET UNIT assignment. 


The old Third Tour Fleet Unit length is 8 quarters 


How many quarters long do you want assignment now? 


Figure 3.20 Change Assignment Tour Length Screen 


This display indicates the old tour length of 8 
quarters for the Third Tour Fleet Unit and prompts the user 
to enter the new tour length in quarters. Caution: The user 
must enter a value and then press the carriage return. If 
he only presses the carriage return, without entering a 
value, the program may not operate properly. For example, 
typing “10<CR>” the program displays the old value and the 
new value, and then automatically returns to the change menu 
of Figure 3.15. 

dad. Changing the High Limits 
Figure 3.21 shows the next screen the user will 


see if "4" is pressed for high limits. 
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Which high Limit do you wish to change? 


TOUR ACTIVITY 

me ELRST A. PROFESSIONAL TRNG 
2. SECOND B. PROFESSIONAL EDUC 
3. THIRD C. WASHINGTON DC 

4. FOURTH D. HORE CONUS 

5. FIFTH E. FLEET UNIT 

6. SIXTH : F. .AFLOAT STAFF 

7. SEVENTH G. SHORE OUTUS 

8. EIGHTH H. SEPARATION 

9. NINTH 
10. TENTH 
11. ELEVENTH 

12. TWELFTH 

TOUR: (type number<CR>)) ACTIVITY: (type letter) 


Figure 3.21 Change High Limits Selection Screen 


The program here provides the user with a menu 
to select the assignment for which the user wants to change 
the high limit. Figure 3.22 shows the next screen the user 
will see if pressing "3<CR>” and the "A" to select the THIRD 
TOUR, PROFESSIONAL TRNG assignment. 


The old high limit for Third Tour Prof ss | 
is 9999 officers. 


There currently are 150 assigned. 


How many officers do you want as the high limit now? 


Figure 3.22 Change High Limit Display 


This display indicates the old high limit for 
the Third Tour Prof Trng, the number of officers currently 
assigned to the Third Tour Prof Trng, and prompts the user 
to enter the new high limit. The user is reminded here that 
the default setting for all high limits in the program is 
gogo . Caution: The user must enter a value and then press 
the carriage return. I[f the user only presses the carriage 
return, without entering a value, the program may not 
Operate properly. For example, typing “350<CR>"“, the 


program will display the old value and the new value, and 


5) | 


then asks the user if he wants to change another high limit. 
In order to prepare for the example in Section 5, another 
high limit choice is’ made by first typing “Y" and at the 
High Limits Selection Screen (Figure 3.21), FOURTH TOUR, 
PROFESSIONAL TRNG is selected by typing “4<CR>" and “A”. At 
the prompt on the High Limit Change Display (Figure 3.22), 
"150<CR>" is typed. Then to finish with this section, 
typing “N" at the prompt asking if another change is desired 
will automatically return the user to the change menu of 
Figure 3.15. 
e. Changing the Low Limits 

Figure 3.23 shows the next screen the user will 

see if "5" is pressed for low limits. 





Which low limit do you wish to change? 


TOUR ACTIVITY 

1. FIRST A. PROFESSIONAL TRNG 
2. SECOND B. PROFESSIONAL EDUC 
3: THIRD C. WASHINGTON DC 

4. FOURTH D. SHORE CONUS 

5. FIFTH E. FLEET UNIT 

6. SIXTH F. AFLOAT STAFF 

7. SEVENTH G. SHORE OUTUS 

8. EIGHTH H. SEPARATION 

9. NINTH 

10. TENTH 

11. ELEVENTH 

12. TWELFTH 

TOUR: (type number<CR>) ACTIVITY: (type letter) 





Figure 3.23 Change Low Limits Selection Screen 


The program provides the user with a menu to 
select the assignment for which the user wants to change the 
low limit. Figure 3.24 shows the next screen the user will 
see when pressing “3<CR>" and then “E” to select the THIRD 
TOUR, FLEET UNIT assignment. 
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The old low limit for Third Tour Prof Trng 
3 is QO officers. 


There currently are 80 assigned, 


How many officers do you want as the low limit now? 





Figure 3.24 Change Low Limit Screen 


This display indicates the old low limit for the 
Third Tour Fleet Unit, the number of officers currently 
assigned to the Third Tour Fleet Unit, and prompts the user 
to enter the new low limit. The user is reminded here that 
the default setting for all low limits in the program is 0. 
Caution: The user must enter a value and then press the 
carriage return. If the user only presses the carriage 
return, without entering a value, the program may not 
operate properly. For example, typing “O<CR>" the program 
displays the old value and the new value, and then asks the 
user 1f he wants to change another low limit. Then to 
finish with this section "N”“ is typed at the prompt asking 
if another change is’ desired. The program automatically 
returns to the change menu of Figure 3.15. 
6. Reinitializing the Data 
Pressing "°O" indicates that the user is finished 
making changes. The program then automatically returns’ to 


the Selection Menu of Figure 3.4. 


Which data do you desire to reinitialize? 


Data: Data files: 
O. None/finished reinitializing data. 

1. Number of officers at each assignment: Nodes 

2. Transfer shes percentages: Arcs 

3. Assignment tour lengths: Length 

4. High limits: Hilimit 

5. Low limits: Lolimit 


Type your selection [(0,1,2,3,4,5]: 





Figure 3.25 Reinitialize Data Selection Screen 


To reinitialize data values, the uSer may press "8". 
Figure 3.25 shows the next screen the user will see. 

The program allows the user to reinitialize all data 
used in the program. The display above shows the data and 
the corresponding data file currently being used by the 
program. The user simply types the number (1 through 5) of 
his selection, and the program will initialize that data 
type, using the file listed. The program also sends the 
user a message along the bottom of the screen to let’ the 
user Know that the program is in fact initializing the data 
selected. A word of caution 1s required here. If the user 
has been operating the program, and has made changes to the 
data, as for example the high limits for two assignments 
have been changed in Section 5.d., then the program will 
destroy all such changes by replacing the changed data with 
the data file Listed above when reinitializing the same data 
type CHigh limits in this case). 

Pressing "2", for example, to reinitialize the 
transfer path percentages, note the message that appears 
along the bottom of the screen, indicating the program is 
initializing the transfer path data using the file Arcs. 
After reinitializing the selected data, the program returns 
the user to the Reinitializing Data Selection Screen (Figure 
3.25) for another selection by the user. When finished, 
pressing "“O" will so indicate to the program. The program 
then automatically returns the user to the Selection Menu of 
Figure 3.4. 

7. Calculations 

Note that this display still indicates that 0 
year(s) and O quarter(s) calculations have been completed. 
By pressing pee the user may select to commence 
calculations. At that point a brief message appears at the 
bottom of the screen instructing the user that if he wants 


to quit and return to the selection menu, he should choose 0 
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years and O quarters. The next question the program asks is 
if the user desires to reinitialize (set to zero) the years 
and quarters count. This will be explained further later in 
Section 7. For now pressing "N" the program asks how many 
years and quarters the user desires to run the model. As an 
example the user may enter "3<CR>” for the years and "2<CR>” 
for the quarters. 

The program then commences calculations. It begins 
by taking those officers with 1! quarter left in each 
assignment and placing them in a temporary transfer file. 
It then subtracts one quarter from the number of quarters 
that all other officers have left in their current 
assignments. This way officers who earlier had 2 quarters 
left, will now have 1 quarter left, those with 3 quarters 
left to 2 quarters left, and so on. This process is carried 
our for each assignment in the network. The program then 
takes the number of officers in these temporary transfer 
files, multiplies them by the respective transfer path 
percentages, and adds the resultant number to the assignment 
they are being transferred to. For instance, if at the 
beginning of calculations there were 10 officers with one 
quarter left, 20 officers with two quarters left, and 30 
with three quarters left, at Third Tour Fleet Unit then the 
10 officers with one quarter left are placed in a temporary 
transfer file, and the 20 officers with two quarters left 
will have only one quarter left, while the 30 officers with 
three quarters left will have only two quarters left. The 
program then takes the transfer path percentages, for 
example thirty percent to Fourth Tour Professional Education 
and seventy percent to Fourth Tour Fleet Unit and multiplies 
the 10 officers being transferred from Third Tour Fleet Unit 
by thirty and seventy percent respectively. The resulting 3 
and 7 officers are added to Fourth Tour’ Professional 


Education and Fourth Tour Fleet Unit. If, for example, the 
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tour length of Fourth Tour Professional Education is eight 
quarters and the tour length of Fourth Tour Fleet Unit is 
five quarters, the 3 officers will be added to the 
assignment Fourth Tour Professional Education with eight 
quarters left, and the 7 officers will be added to the 
assignment Fourth Tour Fleet Unit with five quarters left. 
One must remember that these 3 and 7 officers will not be 
the only officers added to those assignments. These are 
just the officers transferred from the assignment Third Tour 
Fleet Unit. There are probably several more officers being 
transferred from the other assignments in the Third Tour, to 
the Fourth Tour assignments. The results of these 
calculations are maintained by the program memory in 
temporary files, until all calculations are completed, at 
which time the data is transferred into the assignment data 
variables. If a limit either high or low, is violated, this 
transfer from temporary file to the assignment data 
variables does not take place and a warning is posted to the 
user as explained in the next section. The program 
maintains the assignment data as configured after the last 
successful calculations were completed. 
a. Violating the Limits 

After completing the transfer of all_ the 
officers to an assignment, the program checks to ensure that 
the high or low limits for that assignment have not been 
violated. If a Limit is violated, the program sends the 
user a warning. AS an example, Figure 3.26 shows the screen 
the user sees when after conducting calculations for 2 
quarters, the constraint for Fourth Tour Professional 
Training is exceeded. 

Farlier, the user created a high limit of 150 
officers for Fourth Tour Professional Training. This limit 
was exceeded after only two quarters of calculations. The 


program now officers the user three options. 
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After O year(s) and 2 quarter(s) 
The constraint for Fourth Tour Prof Trng has been exceeded 
There are 152 officers there now. 
The high limit is 150 
What do you desire to do now? 
Abort simulation. Return to_selection menu. 


0. 
1. Ignore limits and continue simulation. 
2. Back up one quarter in the simulation. 


Figure 3.26 Constraint Violation Screen 


(1) Aborting the Simulation. The user can abort 


the simulation and return to the selection menu. The 
display of the selection will now indicate that O years’) and 
O quarters of calculations have been completed. When the 
user chooses’ to abort the simulation the program 
automatically returns the user to where the user was before 
he started the calculations that resulted in a violation of 
the limits. In this case the user started with O years and 
O quarters of calculations completed and therefore’ the 
program returned the user to that status. I[f for example, 
the user had first operated the program for 3 years without 
violating a limit, and then operated the program for another 
4 years and in doing so had violated a limit and chosen to 
abort the simulation, the program would return the user_ to 
the 3 years of calculations point in the program. 

(2) Ignoring Limits. As another option, the 
user can choose to ignore the limits and continue the 
Simulation. I[f this option is chosen, the program resets 
the limit to the default value (O for low limits and 9999 
for high limits), warns the user that the limit has been 
reset, and then continues with the calculations. 

(3) Back Up One Quarter. The user may also 
choose to back up one quarter in the simulation. The 


purpose of this option, is to allow the user to go back to 
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the point tin the calculations, just before the limit was 
violated, allowing the user to then change some of _ the 
parameters, and then continue with the calculations. After 
completing calculations for one fewer quarter, the program 
automatically returns the user to the Selection Menu of 
Figure 3.4. 

To continue with the above example, pressing "1" 
will cause the program to ignore the limit and continue the 
Simulation. The program automatically sends the user a 
message that it has reset the high limit of Fourth Tour 
Professional Training to 9999, and that it is continuing 
calculations. 


The program will next show the screen presented 


by Figure 3.27. 


After 3 year(s) and 1 quarter(s), 

The constraint for Third Tour Prof Trng has been exceeded. 
There are 360 officers there now. 

The high limit is 350 

What do you desire to do now? 

O. Abort simulation. Return to selection menu. 


1. Ignore limits and continue simulation. 
2. Back up one quarter in the Simulation. 


Figure 3.27 Second Constraint Violation Screen 


This is the result of the user having earlier 
created a high limit for Third Tour Professional Training of 
350 officers. This limit is exceeded after 3 years and 1 
quarter of calculations. This time pressing “2” to back up 
one quarter in the Simulation, the program will commence 
calculations on the data as configured just prior to 
commencing the calculations during which the limit was 
violated. Then the program will do calculations for one 
fewer quarter, i.e. for 3 years and oO quarters. The 


program sends the user a message to this effect. 


98 


After completing calculations, the program 
returns the user to the Selection Menu of Figure 3.4. Note 
that the top line of the screen now indicates that 3 years 
and O quarters calculations have been completed. The user 
has now the choice to display data in various forms, in 
order to determine why the high limit was exceeded in_ the 
Third Tour Professional Training. The user also has the 
option to change data, e.g. the transfer path percentages 
that send people to Third Tour Professional Training or 
simply change the high limit for Third Tour Professional 
Training. As an example, pressing "7" to change data the 
change data menu will now appear on the screen (Figure 
Sito). Pressing "4" to change high limit data, the Change 
High Limits Selection Screen (Figure Bacal) will be 
displayed. Pressing “3<CR>” to select THIRD TOUR and “A” to 
select PROFESSIONAL TRAINING, the Change High Limit Screen 
(Figure 3.22) is now displayed for Third Tour Professional 
Training. Entering "“9999<CR>”* to change the high limit from 
350 to 9999and pressing “"N” at the prompt asKing if the user 
wants to maKe another change, the program finally returns to 
the Selection Menu of Figure 3.4. 

b. Resetting Year and Quarter Count 

To continue with another example, pressing “9” 
to commence calculations, the program will first ask if the 
user desires to reinitialize (set to zero) the years and 
quarters. So far the user has conducted calculations for 3 
years and oO quarters. If the user wants to maintain the 
year and quarter counters at 3 years and 2 quarters the user 
Should answer no, by pressing "N", and at the prompt asKing 
for how many years and quarters to run the model, he should 
enter “O<CR>" for O years and "“2<CR>" for 2 quarters. The 
model will then perform calculations for 2 quarters and 
return to the Selection Menu of Figure 3.4. Now the top 


line reads that 3 years and 2 quarters calculations have 
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been completed. If the user responds yes, to the question 
7Do you desire to reinitialize (set to zero) yrs & qtrs? 
Y/N’ the program will reset the year counter and the quarter 
counter to zero. This will not affect the status of the 
assignment data, that still has 3 years and O quarters 
calculations completed. If the user now chooses to conduct 
O years and 2 quarters calculations, after the program has 
completed the calculations and returns to the selection 
menu, the top line would read that "O years and 2 quarters 
calculations had been completed.” Actually, this 
calculation was performed on top of 3 years and O quarters 
of previous calculations. 

The user now could look over the data by 
choosing one or more of the several displays available. The 
user could also change some of the data, and continue 
calculations, or reinitialize some of the data and possibly 
start over again other wise the user may press “O" to 
indicate that he is finished. 

8. Saving Data to a Disk File 

The program then asks if the user desires to save 
any of the data to a disk file. This option will allow’ the 
user to choose to save some or all of the data that he has 
been using to a disk file named by the user. For instance, 
possibly the user wants to quit for the time being and 
resume his analysis later. In the above example there is 
assignment data as it exists after 3 years and 2 quarters of 
calculations that the user may wish to save. He has also 
changed high limits in two cases, and may want to save that 
data. Pressing “Y" will indicate that the user wants to 
save data to a disk file. Figure 3.28 is the next screen 


the user will see. 
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This procedure provides you with the opportunity to 
save the data as presently configured in the program 
to a disk file named by you. 
Press any Key to continue 


Figure 3.28 Save Data to Disk File Caption Screen 


Pressing any Key, Figure 3.29 is the next screen the 


user will see. 


Which data do you wish to save? 


Data: Data files: 
O. None/finished saving data. 

1. Number of officers at each assignment: Nodes 

2. Transfer aaa percentages: Arcs 

3. Assignment tour lengths: Length 

4. High limits: Hilimit 

5. Low limits: Lolimit 


Type your selection (0,1,2,3,4,51]: 
Figure 3.29 Save Data Selection Menu Screen 


The program provides the user with the opportunity 
to save any of the data as currently configured in_- the 
program. The data files listed are those that are currently 
in use. The data in these files has not been changed. The 
current configuration of the data is stored in the program’s 
memory. Pressing "4" to save the high limit data to a disk 


file, Figure 3.30 is the next screen the user will see. 





Enter output filename (maximum of 8 letter) 
UNLESS YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO NOT USE 
HILIMIT 


Figure 3.30 Save Data Filename Screen 


The program prompts’ the user to enter a filename. 


Caution: The user must enter a filename, at least one letter 
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long and then press the carriage return. Just pressing the 
carriage return may cause the program to operate 
incorrectly. The following characters may not be used in 


the filename: 


The following are examples of illegal filenames: 


BAD/ONES - Jllegal character (do not use “°/") 
WRONG.ONE -~ Illegal character (do not use “°.") 
TOOOOLONG - Too many characters 


The following are examples of legal filenames: 


NEWHIGH HIGHDATA USERHIGH GOODNAME 


The user is warned about using the filename HILIMIT. 
If the user chooses that name, the default data stored in 
the file HILIMIT, will be destroyed permanently. As an 
example, the user may type the filename “HIGHTEST<CCR>". It 
is not necessary to type the filename in uppercase. The 
program, and the operating system accepts either case. The 
program then dumps the currently configured data from 
program memory, to the disk file named HIGHTEST, sends a 
message to the user to let him Know that this is happening 
€see bottom of screen), and then returns the user to the 
Save Data Selection Menu (Figure 3.29). the user could also 
save the assignment data by pressing ! at this point. 

9. Replacing Default Data Files 

Pressing °0O” to indicate finished saving data, 
Figure 3.31 will be the next screen the user will See. 

The program now provides the user with the option to 
replace the default Gata files, (the files that 
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Now that you have saved that data to your own file, do you 
desire to use it to replace the base data? (Y/N) 


Figure 3.31 First Replace Data Screen 


automatically load in if the user makKes no changes’ to_ the 
input data files at the first screen) with the currently 
configured data in the program’s memory. As the next screen 
warns, this step is a very serious one. [t is a one way 
change, and once done, the previous default data is lost 
forever. The user is probably better advised to not replace 
the base data file’s data in most instances. He may still 
use the file just created if at the first screen in the 
program when askKed whether the user desires to change the 
input data files he answers in the affirmative. However, if 
the for this example, the user answers yes by pressing “Y" 
to the query in Figure 3.31, the program will show Figure 


3.32 on the next screen. 


You have chosen to save the data as it is currently. 
calculated by the Progre i, to be the new initialization 
ata. 


This is a serious step. 
You will be losing the 


Gefault data establishe in the 
model. 


Press any Key to continue 





Figure 3.32 Second Replace Data Screen : WARNING 


Pressing any Key, Figure 3.33 is the next screen the 
user will see. 


The program here provides the user with a menu to 


choose which data file the user wants to replace 
permanently. The user iS again cautioned that this is a 
serious step that cannot be undone. If the user selected 1 


through 9, the program will give the user one _  ~wmore 
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Which data do you desire to change PERMANENTLY? 


Data: Data files: 
0 None/finished replacing data. . 

1 Number of officers at each assignment: Nodes 

2. Transfer Paee percentages: Arcs 

3. Assignment tour lengths: Length 

4. High limits: Hilimit 

5 Low limits: Lolimit 


Type your selection (0,1,2,3,4,5]: 
Figure 3.33 Replace Data PERMANENTLY Selection Menu Screen 


opportunity to change his mind, and then replace the data as 
selected by the user. The program then returns to the 
Replace Data PERMANENTLY Selection Menu Screen of Figure 
3.33 to give the user the opportunity to replace some other 
data. Pressing “O" will cause the program to leave this 
section of the program without making any replacements. 
Current use of the program is now completed and the 


user is shown an ending logo on the screen. 
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ev. CE_OF THE DE ND FUTURE DEVELOPMENT 


A. MAINTAINING AND UPDATING THE DATABASE 
As stated in Chapter III, there are six data files 

contained on Distribution Disk I. 

NODES .NOD 

NODEZERO .NOD 

ARCS.ARD 

LENGTH.LED 

HILIMIT.HID 

LOLIMIT.LID 

These six files contain the default data the program 

will use to initialize the variables, unless the user 
changes the input data file. Because data relevant for the 
model was not directly available at the writing of this 
report, all data in the default files was contructed 
somewhat artificially, although care was taken to make such 
data reasonable realistic. It is hoped that this data will 
soon be replaced by actual data by the model’s first user. 
The assignment data that consists of the number of officers 
at each assignment provided in file NODES” Was 
abstracted/excerpted from an inventory of surface warfare 
officers for 1983, generated by the SWOTOURS model (Ref. 
a). Although the SWOTOURS model does’ not indicate the 
number of officers in the same format as this model, 
combining different outputs of the SWOTOURS model, and 
crossing years of commissioned service (CYCS) with tour 
numbers, enabled the author to fill the model with 
“realistic” data. The default transfer path percentages 
were generated by analyzing data from the SWOTOURS model and 
then estimating the transfer path percentages from each 
assignment in the network. The default assignment’ tour 


length data was generated by evaluating the surface warfare 
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officer career path depicted in the Unrestricted [Line 
Officer Career Planning Guidebook [Ref. 1] and equating the 


length of tours described with the networks assignment tour 
lengths. The high and low limit default data files were 
arbitrarily set at 9999 and O respectively. 

As discussed previously, the user can decide which file 
the program will use to initialize the variables, by 
choosing a file previously saved. The user can also change 
the number of accessions, the individual values of the 
transfer path percentage variables, the assignment tour 
length variables, and the high and low limit variables. 
After making such changes the user is provided an 
opportunity to save those changes to a file of his = own 
choosing. The user is then provided the opportunity to 
replace the default data files with these new data files if 
he so chooses. When actual data becomes available, the 
program itself, can be used to update the above mentioned 
default data in just that way. 

The only data the user cannot change directly during 
operation of the program, is the number of officers at each 
assignment. The network consists of eight activities by 
twelve tours resulting in ninety six assignments/nodes. 
Each assignment can be between 1! and 16 quarters long, thus 
requiring one thousand five hundred and thirty six data 
entries to fill the network. Since the data files are not 
encrypted for the convenience of the user, each file could 
be edited using any word processing software package. 
Caution: This is NOT recommended. Hidden editing/formatting 
commands may be unintentionally inserted into the data 
files, or the user may accidentally violate the format of 
the data, rendering the data file useless. A separate 
program has been included on Distribution Disk II called 
UPDATE.COM to be used exclusively to update the number of 
officers at each assignment if the user wishes to do that. 


This file cannot be used to update any of the other data 
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filles, since it only formats data for use as "NODES" data. 
It is a somewhat long and tedious process to update the data 
using this UPDATE program, but it is not likely that it will 
be required to be used very often. 

To use the UPDATE program, the user should simply place 
the “working copy” of Distribution Disk II into the drive, 
type “UPDATE<CR>” and follow the prompts. This program will 
create a new file called "“NODES.NOD” on the “working copy” 
of Distribution Disk II. In order to use it with the 
program the user must copy the new "“NODES.NOD”" file to 
Distribution Disk I using whatever procedures his operating 
System requires. One example for accomplishing this task is 
placing the “working copy” of Distribution Disk I in drive 
A, and the “working copy” of Distribution Disk II in drive 
B, and typing “A:<CR>*. Then at the prompt : A>, the user 
should type “COPY B:NODES.NOD A:NODES.NOD". The data files 
are not “operating system” dependent, and the data files can 
be used interchangeably between the IBM and ZENITH versions 


of the program. 


B. REVIEWING USER DATA FILES 

The user is reminded that the program takes up 
approximately 58 Kbytes of space on Distribution Disk I. and 
the data files add another 62 Kbytes, so 120 Kbytes of space 
on the disk are required simply to operate the basic 
program. As the user operates the program again, and again, 
it is expected that data files will be created, to enable 
the user to go back later and evaluate the results or 
recreate the results. The distribution disk is capable of 
holding 360 Kbytes of files, provided the user does not also 
have the operating system on the working copy of the 
distribution disk, in which there is approximately 350 
Kbytes available. Subtracting the 120 Kbytes used by the 
program leaves approximately 240 Cor 230) Kbytes for storage 


of the user created (saved) files. The user is cautioned to 
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occasionally use his operating system capabilities to review 
the amount of files storage area available, to preclude 
attempting to save a data file using the program, and 
failing to do so due to insufficient disk space available. 


C. REVISING THE MODEL 

This program was written and compiled, using Turbo 
Pascal Version 3.0. The ".PAS" files will not run using 
earlier versions of Turbo Pascal. This does not impact on 
the user since the ".PAS”" files are not used in the normal 
operation of the program. The listing contained in Appendix 
A, contain many comments to aid future programmers in 
determining “how an why” certain procedures perform their 
tasks within the program. The program cannot be expanded 
beyond eight rows and twelve columns without a major 
rewrite, but with some changes to the activities labels, 
this network flow model could be modified to simulate’ the 
career paths of any officer community in the Navy. User’s 
unfamiliar with programming in Pascal and who do not have 
Turbo Pascal Version 3.0 or later to compile their changes, 
are advised against altering any of the programs. The user 
is reminded that simply making changes to the °.PAS” listing 
will have no impact on how the program runs, until the 
program has been recompiled. If the user does attempt 
modifications, please ensure that any changes are fully 
documented by comments, to allow future users to review 
modifications made to the program. The user is reminded 
that the programs on the master distribution disks should 
never be modified. They are shipped with write protect tabs 
installed, and these tabs should never be removed. 

The program has been operationally tested, and several 
undocumented features (a.k.a. bugs)? have been corrected, 


doubtless there are more which have not yet been discovered. 
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APPENDIX A 


THE HAIN PROGRAM IS CONTAINED IM THE DISK FILE °SWOPATH. PAS" 


(2ESSISAITITITITITITITITIILTITIITEIEIITITI TIT 53 35 15 TTST ITT ITI TF STIs sss 753 
pedoesooocoeoessrcssovsorivessesssesvessersorseresdssevecr esos osrttosene so oF) 


PROGRAM SWOPATH; 


{ This is the main program. Here al} global variables are defined, 
all procedures are forward referenced, and all include flles ave 
called. The remainder of the parts that ake up the sodel are 
subroutines, called procedures, vhich the aain prograa calls as 
necessary to run the model. } 


TYPE 


One Dia Real = ARRAY (1..12) OF REAL; 

Two Dia Int 2 ARRAY (1..12,°A?..°H') OF INTEGER; 

Two Dia "Real = ARRAY [1..12,'A)..9H!) OF REAL 

Tre Dia RealCH = ARRAY C1..12,"A?..9H?,9A,.9H?) OF REAL) 
Tre Din RealNR © ARRAY (1..12,°A'..°H?, 1.016) OF REALS 
AString = STRING (80); 

STR 25 = STRING (25): 

Qne “Die StrNR = ARRAY (1..16) OF STR 25; 

One "Dia “StrCH = ARRAY (°A'..°H!) OF STR.25; 


VAR 
Tour_sua: One Die Real; 
Tour, { label for which tour } 
TLeagth: One Die StrkR { label for length in quarters) 
Actlyity: One Dla StrCh; { label for aoe } 
Hilieit, { eax number of officers by billet node ) 
LoLialt { ain nuaber of officers by billet node ) 


Teap Billet Total, { temporary nueber at each billet node ) 

Billet Total: Tvo Dia Real;  ( sum of officers at each billet node } 

New Length, { new saneet of tour (to be changed to ) } 

Old a bi { old billet ras Fs (for record purposes) } 
Bilfet _Cength: Tvo Die_Int; { actual billet length } 

Transfer Path: Tre Die Real Ch; { percent of officers to be transferred } 

Path total { cee totals of transfer paths ) 

Tea Billet Node, { tenporary nuaber of officers at each node ) 
Billet Mode: Tre Die RealWR; nuaber of officers at node by quarters left ) 


Access[ons, nuaber of officer accessions } 
eect! 
er Seconds, 

4 

) 

Ty, € tour nuaber frown | to 12 ) 
ae : { quarters left froa l to 16 ) 

ota 

uRQuar ters, € hov many quarters model is to run ) 
NRYears, { value established by user } 
Quarter { counts from f to 4 
QtrCount, { variable keeps track of # of iterations ) 
YrCount: INTEGER; { variable keeps track of nr of years ) 
K, { used for activity } 
A, { used for activity ) 
Ansver, 
Choice, 

Reinit, { used in years to indicate reinitialize ) 
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Bl splay, { ansver to choice of display ) 

Firat, { Used to input Info to Correct choice ) 

rps aoe { Used to Input info to Correct cholce } 

calc 

Hop-calc7T. ( lisit varning boolean ) 

Final totals, 

Violation, ( if Limits violated } 

Toomany, € hi Limit } 

Toofew, { lo liait } 

net { deslre to change ) 

Initial, { Initialize values } 

All flaished, { an finished vith prograa } 

erasing { finished vith particular section } 
eacy, 

Replace, { activates replaceat of Initial data } 

Review, { look over display selections } 
_ansver, { Used in correct _ansver procedure ) 

Ok cholce: BOOLEAN; { Used in correct choice procedure )} 

File var, 

Output naae, { 

Nodedaa, - { these are all ) 

Arcdata, { used ia data file } 

rete ct ( creatlon and transfer } 

Hilidata, 

Lolidatas Str_25; { Data file variable names } 

Cholce_zero 

chgevar : abtring 

eaporary: 

Data filet TEN; 


{.pa}{ forvard references for all procedures ) 
PROCEDURE Logos FORWARD; 


PROCEDURE Dirlist; hg et 
PROCEDURE Initialize ; F Ds 
PROCEDURE Initialize nodes 3 F 0; 
PROCEDURE Initialize arcs ; se 
PROCEDURE Initlallze_lengths; FORWARD; 
PROCEDURE Initialize hilimits; FORWARD: 
PROCEDURE Initialize loliaitss FORWARD; 
PROCEDURE Initialize labels FORWARD; 


PROCEDURE Selection _senu; J ipl 
PROCEDURE Review_selections ; FORWARD; 
PROCEDURE Calculations 3 4 
PROCEDURE Ask _for_years 4 FORWARD; 


PROCEDURE All billet totals: FORWARD 
PROCEDURE Billet totals (VAR Ts INTEGER; 
VAR At CHAR =) s:_- FORWARD; 
PROCEDURE High _varning; FORWARD; 
PROCEDURE Lov_warnings; FORWARD; 


PROCEDURE Changes; FORWARD; 

PROCE Change_accessions; FORWARD; 

PROCEDURE Change_arcs; FORWARD: 

PROCEDURE Change_leng hy F i 

PROCEDURE Change hiliaits; FORWARD; 
Change_lolinits: FORWARD: 

PROCEDURE Dchoices; FORWARD: 

PROCE DURE “4 ea 

PROCEDURE Fr oeapas scrny FORWARD; 

PROCEDURE To_pathscrny FORWARD; 


PROCEDURE Disp assigns FORWARD; 
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PROCEDURE Disp tours; wing 
PROCEDURE Hise batha, ealtones F “s 
PROCEDURE Disp_ paths t Oo} 

PROCEDURE Disp billets; FORUARD; 
PROCEDURE Node dump; FORWARD; 
PROCEDURE Arc dumps FORWARD 
PROCEDURE Length dup; F ; 
PROCEDURE Hilia duap; FORWARD; 
PROCEDURE Lolia duap; FORWARD; 


PROCEDURE Iavalid savant EoRARD FORWARD; 
PROCE Wrong ansver 
PROCEDURE Correct scietiee (VAR Choice, SR Last: Jeni 
VAR Ok scholcet 8 BODLEAN) FORWARD; 
PROCEDURE Correct_answer (VAR Answer: lo 
VAR ee il EAN): FORWARD; 
PROCEDURE Another change; FOR 


PROCEDURE +h (VAR File. var! wet 25); FORWARD; 
PROCEDURE Blankline (2, Y: INTEBER); FORWARD; 


PROCEDURE Save data a see 
PROCEDURE Replace datas FORWARD; 


{.pa} { link up all include files } 
{$1 zeaUTIL$ } (3 This reads “ibaUTILS® 3) 
(3 in LBM PC version %) 
{$1 Logo) 
{$1 lnitdata) 
{$1 Selectio) 
($I Calculat> 
{$1 Totals) 
{$1 Chgdata) 
{$1 Screens) 
{$1 Displays) 
{$1 Dataduap) 
{$1 Ansvers) 
{$1 Stordata) 
{pa} 
{ The beginning of the HAIN Progra } 
BEGIN 
Accessions := 350; 
Teapcount := 03 
WRYears := 03 
MRQuarters 33 03 
Quarter := 4 
YReount 33 a 
Review := falses  {( to ski le selections the first tine } 


Initial := trues { to initia «& he data the first tiae 
Wey Length { T, A) s= Billet Length { T, A); 


Logo; 
IF Initial THEN 
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BESIN ( initial if ) 

Initializes 

sare accessions; 

Initial : falses { to prevent program fron reinitializing) 
END; { Initiaiize if) 


REPEAT { repeat loop until all finished ) 

Ail _finished := falsey {( to ensure that ve are not ail finished } 

Ready := faise; { establish that ve are not ready for caicui } 

Change 12 faise; { establish that initialiy ve do not change } 
IF NOT Ali_finished THEN Seiection_nenu; 


UNTIL Ali_finished = true; 


Save data; 

Ci ear screen; 

GotoRC ( 12, 13); 

Color ( white, magenta); 

URITELW (? Have a nice day! Ys 


Coior ( yellov, blue); 
END. { SWOPATH eain prograa ) 


a 


APPENDIX B 


THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE "ZENUTILS.PAS° 
PSPPSOPPPPSPSOSSIP>PSPPSP PPL IPP SPIPPPPPIPPSPSDPSPSIPIPPSPPIDIPIPILID IIOP IPD? 
pePePPSEPSSISESISLI PSPSPS >S>S>SES ISOS ISIS ES SSSODSSS SSS OD>SODOS>DOSO ISDST ODS IS, 


SMe cree Leh eo nner SLPSRESNEEESTS ESSE 


3% 
3 MISCELLANEOUS UTILITIES > 
3 H/Z-100 Version 33 


>> 4 3 
TSIISTITIIIIITTTATIT ISLET TTTTTTTT STS T TTT Teese s sss) 
This file contains the RE Mt i 


specifically written to be Heath/Zenith 
compatible 


om 


ClearScreen 
Color 

Got oRC 
Center 

a 
GetOneChar 
ause 
Stri 
Blankline 


ScreenColor = (Black rae Ae naa 
Cyan, Yellow, White ' 


procedure ClearScreen; 

{ This procedure simply clears the screen ) 
begin 

CirScr; 
end: (ClearScreen} 


PPSPPIPIIPIII9 SIS SPS 9999 PP >PS> SIP OO DSSS SPSDPSPOIO DIDO SSDS ISSO ODIO OSSD 9999; 
ASPIPPSPSIPIPPDISDPSSDISPIPS>PIPDSPSIPIDES ISOS ISP ISIS SISOS ISSOSISS SSIES IPP OOLE, 


procedure Color (Foreground, Background : ScreenColor): 


73 


(This procedure sets the Screen Colors according to the 
requested colors sent. Colors ares Black,Blue,Green 
Cyan, Red, Magenta, Yellov, White } 

begin 


write(chr (27) "a" schr (ord (Foreground) +48), 
chr (ord(Background) +48) ); 


end: {Color} 


Foose PoPS Sos oSorsesoeseSoLsssesosreSoPSesesoseSosoeseseseesesossosesoe se sors: 
SoPPPPPIPSIPSSSSSSSoroPIePiosoososssorsessossoeeiocsettoesoesoessessetfe ss eeS 


procedure GotoRC (Row, Coluan : integer); 


{This provides direct cursor mre There is a built- 
in function GotoXY which asks for XY (or Col-Row) order. } 


begin 

if Row > 24 then Row := 24: 

if Coluan > 80 then Coluan := 80; 

GotoX¥(Coluan, Row); 
ends (GotoRC} 
FESO o oo SSS ESS eSeeSoSoe Sess esreseesessessessesossesse ss esots ee sesso see see ses: 
PS SPOSSES>ES>EOS ESS OSS OSES ESOS SSeS TESS eS SETS eS TESTES Ste Sete lee TTS TTT STS Stee 
procedure Center(Line : integer; Message : AString); 


(This procedure will center the ieasage in 80 coluans 
on the screen. Must pass message and line it’s on) 


var 
Count : integer; 
begin 
if Length(Message) 979 then 
tap 
GotoRC (Line, 1); 
vriteln(Message); 
end 
else 
Peper 
BotoRC (Line, ((B0-Length(Message)) div 2)); 
write(Hessage); 
ends rl 
fend if-then-else} 
end: (Center) 
PS o FeSO SS PSSST ESSE SSS ESS CSS SOS PS ESS SOS SOFT SESS SESS SSeS ee sees eee Sees ee ee: 
SPS SOSSSESS>SSS>SSSOSS>SSS>SSSO SSS ESS OSSD ESS SESS SESS SESS eso eS So eS tess eet ees, 
procedure GetOQneChar(var UserAnswer : char); 


{This procedure gets exactly one character, converts to 
Upper case (if needed) and displays it on screen } 
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begin 


oe al rat 
UserAnsver t= UpCase(UserAnsver ); 


end: {GetOneChar) 


PE Ses Peso e ses e es ese ese Ds ESoreoeoESoPsSesSESoeresessesseoorserseseesooresro ese: 
peesosoiossosseooocsorsorossecesessosssoesesovsesesoosesoeserissisersisise re ee 


procedure Pause; 


{ This routine merely vaits for any key; if want to check 
for Control € for exit, use Pause belov 


var 
AnyKey : chars 
begin 
writeln: 
GotoRC(23, 23): 
vrite(’Press any key to continue... ')$3 
GetOneChar (AnyKey)s 
end: { Pause ) 


EPSPLIPSLSPIPILIOPPPPS IPOS PPPS PoeSSoeorseseooeseseseresessrsesesese ress eses 
eSoPsersosresosseosesesesesesoesosososessesossossessessissiressessesessessree 


PROCEDURE Strip ; 

{ this procedure strips the filetype from a filename ) 
TYPE 

AString = STRING (80); 
VAR 


: ASTRING: 


5 oe SRE 


Y 
l 
BEGIN 


INTEGER: 


ENGTH (File_var)s 


L 
X 
E File var,Y, 4); 


om C3 


ELET 
END; 


PPS S eS PoSES SOLES EPSPS SOT oeS reer reese seLeeso eso eee ose Les o eee eee o Teele Sees: 
SP P>S>ES>>>EP>>ES>>>SP>SSEPS DOD SOLOS o SESS oer TS eee T To eee ree e le ee Tote T eel ed: 


PROCEDURE Blankline; 


{ This procedure blakns out a line given row and column nuaber } 


ge 


BEGIN 
GotoRC (X,Y): 
WRITE 


(? 
GotoRC (X,Y); 
END; { Blankline } 
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")} 


APPENDIX C 
THE FOLLOWING PROCEDURES ARE CONTAINED IM THE DISK FILE *{BMUTILS.PAS® 
isesscestsctecsstsecttisssesscsessstesssssssesteresstieos set eite tess ees sists 
Teieseestestiestistesseteeststestifersrrssssrssseressersttetestshtieststsstty 
Restssssessssstessssssessssssstsssesescsessssstsss ss) 


33 33 
33 MISCELLANEOUS UTILITIES 33 
“ [GN VERSION : 
VITITITITLTITIIITITIISTTSTITTTITITIT STIFF IFT 33333) 


{ This file contains the folloving procedures 
specifically written to be IBM compatible 


Clear Screen 
Col or 
Bot oRC 
Ceater 

ab 


GetOneChar 


Blankline 
} 
const 

HTae : Char = “[; 

Bell : Char = “6; 

LFeed : Char = “J; 

Return: Char = “fl; 
(TSSSSTAATITTISITETISITI TI TTITTITITT TESTI 3335335529753 3333 3333733335357 332 
SIITIITITIITIIIIIZFITITTITTITITIIFIITIIIII3I3T35I3533333353533593393353F9353) 
procedure ClearScreens 

{ This procedure siaply clears the screen } 
begia 

CirScr 
end; {ClearScreen) 
(ZSMSSTLTITSITITTITITTLI TTT TTT T TTT sez TTT TTT Tz TTT 8s 3F533 3333 
33333333233533333573333T3T95 933 3393359S5953353335T337393335953333333333I33 3) 
procedure Color (Foreground, Background : Integer); 

(This procedure sets the Screen Colors according to the 
requested colors sent. Colors are: Black, Blue, Green 

Cyan Red, Magenta, Yel Lov hi te, Gray, Light Blue, Light Green, 
Light Cyan,Light Red, Yellov,High White ) 

begin 
Textbackground (Background); 
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Textcol or (Foreground); 
end; {Color 


Loe ed 





3 
BSopeposssopsovsssodsevassocs sess rasoonese pissetysedseoieed soe sdot oes soe bis so! 


procedure SotoRC (Rov, Coluan : integer); 


{This provides direct cursor addressing. There is a duilt- 
in function GotolY vhich asks for XY (or Col-Row) order. ) 


begin 

if Row > 24 then Row s= 24; 

if Colusa > 80 then Colusa := 80; 

GotoxY(Colusn, Row); 
end; (GotoRC) 
(SELIISAITITISTAITTITIIIITAIITITATITITITTITITLTTFTITIFFIII3333IF7333TT3 F335 
3333333333223 33333333335352333333333333333333333353333333I333333335339333333) 
procedure Center(Line : integers Message : AString)s 


(This procedure will center the pase in 80 coluans 
on the screen. Hust pass sessage line it*s on) 


var 
Count : integer; 
begin 
if Length(Message) >79 then 
ri be 
GotoRC (Line, 1); 
vriteln(Message); 
end 
else 
coe 
GotorC (Line, ((B2-Length(Message)) div 2)); 
vrite(Hessage); 
end; (begin-else) 


(end if-then-else) 
ends (Center) 


(ZSISRITLIFITFITITTITITITIIILISTSITTIS TTS TITTAT ITA TTT I TTT g5 5339353353 
IZITZITIIIIFITIITIITIIIIIIFIII33333333339333353733T333333333333F3F 33933335372) 
procedure Tab(NuaberSpaces:integer ); 


( This procedure moves the cursor over the appropriate 
number of spaces requested } 


var 
Count : integer; 
begin 
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for Count := 1 to NuaberSpaces do 
a 

ito t) 

end; (begin) 
{end for) — 
end; {begin} 
Sscocsocsevosesosssdessevessrseposoeeeseresssoeserss sored severed ees eser sed | 
$33333333333333333335733333333335955793F5333373353F33F33535979TF3335353F3333) 


procedure GetOneChar (var UserAnsver $ char); 
(Thia procedure gets exactly one character, converts te 
Upper case (if needed) and displays it on screen ) 


hegia 
ry read(Kbd, Ne pay All 
UserAnsver s* UnCase(lserAnsver ); 
end; {GetOneChar ) 


Psssesopesvodoposdiosecocsevosopvosscssssroecvesecteserezess9secs soe 85900 o 99 
ePeporodrspoorssdovsodotpovrssooporosressosedosoesisrrosebrre sero srr oe reper sey, 


procedure Pause; 
{ This routine merely vaits for any cert if “ph to check 
for Control C for exit, use Paused below ) 

var 

AayKey : char; 
begin 

vriteln; 

Sct 

wite(’Press any a to continue... ')3 

GetOneChar (AnyKey); 
ends ( Pause } 
(S3SSIIIITIIIFFIFIIIIF3333F33359333353533333333333333333233333533333333F3s33 
33333333333333333333333333333333353333553353333333333333333333333333333333333) 
PROCEDURE Strip ; 
( This procedure renoves the filetype from a filename ) 
TYPE 

AString = STRING (80); 


VAR 


3 ASTRING} 


l 
BEGIN 


INTEGER: 
I s= LENGTH (File var); 
Y 13 X-3; 
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DELETE (File var,¥, 4); 
END; 


Pocesecscosescocesecvecsevesccsccociosesczetevsesesoegszcvescsgesesecs se 79s 
TIZAIITITTITTITIITITIITIFSTIITFITIITIITIITIITIFF33IIF3FIFTII3 735797393393 33333) 


PROCEDURE Blankline; 
{ This procedure blanks out an entire line. Must pass rov and coluan ) 
BEGIN 
GotoRC (X, ¥); 
ae 
GotoRC(X, Y); 
END; { Blankline > 
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APPENDIX D. 


THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE "LOGO. PAS* 
Sesoesespesesreserseseseesoosesgospepesespesesessesecsessesesesses ses esse es, 
pS osvsosdrodrooposo dodo prososopopopsosesoporssossesepoesesossestsesesore stereos ei 


( This file contains the procedure 
Logo 
} 
PROCEDURE Logos 
{ This procedure calls up the initial screen logo.) 
BEGIN 


Clear Screen; 

Color (white, blue); 

ClearScr een; 

Color(white, magenta); 

Center (10, ‘Welcome to Tartare b 
Center (12, 'The Surface Warfare Officer’): 
Center (14, 'Career ine hea 1 

Center (18, "Version 1.0 

Center (20,127 epteaber ‘Y985" 
On sail blue); ( and date if modifications are made } 
GotoRC (23, £)3 

DELAY (1506)5 


END; {Logo} 


{ Be sure to change version nuaber ) 
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APPENDIX E 


IZ3ITIB 
333333) 


THE FOLLOWING PROCEDURES ARE CONTAINED. IN THE DISK FILE °INITDATA.PAS® 
IP Esgesspoverecogepdosedeepevorerrsoveroressoecssesdesescese deeded oy se! 





( This file contains the folloving procedures 


Initialize 
Initialize nodes 
Initialize_arcs 
Initialize lengths 
Initialize labels 
Initialize hiliai ts 
Initialize lolinits 
, DirList 


PROCEDURE Initialize; 


{ This procedure roe the displays and aechanics to call up 
the data initialization procedures } 


VAR 


Ok: BOOLEAN 
LY: ! } 
Default : Str 25; 


BEGIN 
Finished := false; 
IF Initial THEN 
BEG! 


N 
Nodedata := ‘Nodes’; 
Arcdata := ‘Arcs! 
Lengdata := ‘Length! 
Hilidata := 'Hiliait’; 
Lolidata := ‘Lolimit’; 


sale ( until finished ) 
var := 
‘Do you want to change the input data files from those listed below?!; 
prance tere 23'No changes vanted/finished changes. ’; 
anges; 


IF Choice = '0’ THEN Finished := true 


ELSE 

BEGIN 

Reeanncrernt 
(5, 1): 


WRITELW ¢! Reaeaber, you aust choose a data file that you have '); 
WRITELN (’ previously saved. Those are listed belov.’); 


URITELN: 

Color (red, white ); 
Dirlist: 

Color (vhite, blue); 
WRI TELM WRITELN 
GotoRC Cli, 15) 
WRITELW (’ = Enter the input filename’); 
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Color (blue, white); 

BoteRC (13, 15) 

WRITELM (" typed exactly as Listed above,’); 
Color (vhite, blue); 

BotokC 


5): 
WRITELM (?’ that’ you choose to uses ')s 
REPEAT { Ok true) 


IF Choice = '1) THEN Default := 'Modes!; 
IF Choice = °2° THEM Default := Arcs’ 

IF Choice = ‘3’ THEN Default := "Lengt 4 
IF Choice = '4° THEN Default s= "Hiliait’; 
IF Choice = 'S’ THEM Default := "Lolisit’; 


BotoRC (20,15) 

UR) 

Blanktine 

GotoRC (15, 

READ (File var); 
IF Choice = ‘1? THEN File var 
IF Choice = °2' THEN File var 
F Choice = '3’ THEN File var 


IF Choice » 4" THEN File var 
IF Choice = '5’ THEN File var 


Te (°F Default,’ if you want to exit back to aenu.’) 
ws, 9) p y : 


s© CONCAT (File_var,’. nod’): 
33 CONCAT (File_var,’.ard’); 
s= CONCAT (File var,’.ted’); 
23 CONCAT (File_var,’.hid!); 
2= CONCAT (File _var,’.lod!)3 


ASSIGN (Data file, Re procedure deteraines if there } 


($I-) RESET (Data file) ($1+ 
Ok s= ({Oresult = 0); 
Strip (File _var)} 


[F NOT Ok THEN 


Blankline (24, 1) 
Color (white, red); 


tlis such a file as selected by user.) 


WRITE a Cannot find file ', File_var,’ please try again.’); 


DELAY (1500); 

Color (vhite, blue); 
Blankline (24, a 

END; { Ok 10 result if ) 


UNTIL Ok = True; 


If Choice = ‘1’ THEN Nodedata 
IF Choice = '2' THEN Arcdata 
lf Choice = '3° THEN Lengdata 
IF Choice = °4° THEN Hilidata 
IF Choice = 'S’ THEN Lotidata 


END; ( if choice 20 ) 
UNTIL Finished = true; 


[nitialize labels; 
Initialize_nodes; 
Peete 
Initialize Lats hs} 
[Initialize hillaits; 
Initialize loliaits; 
Final totals := true; 
All billet totals; 
Blankline (24,1); 
END; {if Initial ) 


IF MOT Initial THEN 
BEGIN 


s© File var; 
12 File var; 
22 File var; 
t= File var; 
s= File vars 
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REPEAT { Until finished true } 
Chg var :2 Which data do you desire to reinitialize?’; 
Choice zero := 'None/fini reinitializing data.’ 


Ochanges; 
IF WOT Ok_choice THEM Initialize; 
If Choice = '0' THEN Finished :* true; 
ties =]? THEN 


Initialize_nodes 

Arcdata 33 CONCAT (Arcdata ard’) 
Lengdata := CONCAT (Lengdata,’. led’); 
Hilidata := CONCAT (Hilidata,’ hid’); 
Lolidata := CONCAT (Lolidata,’. lod’); 
ENO; { If choice | ) 


IF Choice = '2° THEN 
BEGIN 


Initialize_arcs 

edata 33 T (Nodedata,’.nod’) 
Lengdata := CONCAT Pricer 
Hilidata := CONCAT (Hilidata,’ Aid’) 
Lolidata := CONCAT (Lolidata,’. lod’) 
END; { If choice 2 ) 


IF Choice = '3’ THEN 
BEGIN 


et ph caer oe 

Nodedata :3 CORCAT (Nodedata,’ nod’); 
Arcdata := CONCAT (Arcdata Yard’) 
Hilidata 1* CONCAT (Hilidaba,’ hid!) 
Lolidata := CONCAT (Lolidata,’. lod’); 
END; { If choice 3 ) 


IF Choice = '4' THEN 


BEGIN 

eer ot ER 

Nodedata :3 COMCAT (Nodedata,’.nod!); 
Arcdata := CONCAT (Arcdata ard’); 
Lengdata := CONCAT (Lengdata,’. led’); 
Lolidata := CONCAT (Lolidata,’.lod’): 
END: {If choice 4 ) 


IF Choice = °5’ THEN 
BEGIN 


eran eae 

Nodedata :2 CONCAT (Nodedata,’.nod’); 
Arcdata := CONCAT (Arcdata ard?) 
Lengdata := CONCAT (Lengdata,’. led!) 
Hilidata := CONCAT (Hilidata,’. hid’); 
ENB; { if choice 5 ) 


UNTIL Finished = trues 
Final totals 33 trues 
All billet totals; 
Clearscreen; 
EMD: { if NOT initial ) 
END; ( Initialize procedure) 


Pogosesecvssosesegtesestcsesposesesesecectessegereessvsesestesessososeg ret es | 
beds osedoooobrosererpsspoerrororororvsosbosiberverereroereroseseoreserer ers ooey, 
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{.pa) 


PROCEDURE Initialize nodes; 


{ This edure reads as t data f 
Miia 


BEGIN 
aoe a 10)5 
GotoRC ( iy 
WRITE ( Initializing the nuaber of officers at nodes ’, 
? usin gine files ', Modedata); 
Nodedata = CONCAT (Nodedata,’.nod?S; 
ASSIGN (Bata i aaa ld 
RESET (Data Tile); 
WHILE NOT EOF (Data file) 00 
BEG! 
READ (Data file, T )3 
If WOT EDF (Data file) THEN 
BEsin 
READ (Data file, Skip); 
READ (Data file, A); 
READ (Data file, Skip); 
READ (Data file, : ah 
READ seat ar at 
READIN (Dafa file, Billet ode ( 7, A, L J)3 
END; Fitiaat ond of file ) 
END; ( end while not end of file ) 
CLOSE (Data_file)s 
—ENDs «{ Initiailze nodes ) 
(TEISTISTTITITTTITITIITIITATITTAITIITTTTITIIIIILTLS3 IFT I TIT ITI3 33535333 
33333333332333339333333339335935333 3333593339333 33373333333323333335733 3333) 
{.pa) 
PROCEDURE Initialize Arcs; 


{ This procedure reads transfer path percentages fro 
a data file on the disk } 


VAR 
T, 
[NTEGER; 


Ki; eal 
Data_files TEXT; 
BEGIN 
Blankline (23, 16); 
tore (23, 14; 


URITE ( tnithalizing | oe transfer path ar ctatat F 
Skip ss * , using the files ',Arcdata 
{8 


ieeuata 33 boncat (Arcdata, '.ard’)s 


ASSIGN (Data file, Arcdata): 
RESET (Data Tile): 
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WHILE MOT EOF (Data file) 08 
BEGIN 
READ (Data file,T)s 
IF MOT EOF (Data_file) THEN 
BEG 1M 
READ (Data_file, Fo 
READ (Data file, a 
READ (Bata_ “file 1 eh 
READ ol elites 
Dafa file panste noes CT, A, K 25 
END; { “ead Tt ashi eas 
END; { end while not end of file ) 
CLOSE (Data_file); 
END; ( Initialize arcs } 


Posoorrodesdosiecvssssosecvedsosoccoorsrrsrorssosersroeersecersesrese see ree ns | 
po Soo do doehosdovcvvsdosoobssigcoecrpesporerprdoerporesosroresresossoseo ter eotes 


{.pa) 
PROCEDURE Initialize_lengths; 


{ This procedure reads the assiengent tour length data 
frow a data file on the disk 


VAR 
HK Pl ia 
Daten otles TEXT 
BEGIN 
Blankline (23, 10); 
GotoRC (23, 1); 
WRITE (? initaiin assi eer ak gyeraine using the files ', Lengdata); 
Assia (Data file, (Cengdaka sid 
a_file 
RESET (Data Tile); 
WHILE NOT EOF (Data_file) 00 
BEGIN 
READ (Data file, T }; 
IF WOT EOF (Data_file) THEN 
BEGIN 
READ (Data att ee 
READ (Data 1 
READLN (Data ‘ithe sbi Let Length € 1, A D5 
END; {end if not end of Tile ) 
END; { end vhile not end of file } 
CLOSE (Data_file)s; 
END; { initialize lengths ) 


ESeerosvoceserrsrroosororsoprpesrsrresroesecveversresrorrsrerrrsrsr rere sere oo | 
TILIAIFTATTILATFAIATITAIITIITIFITILTAITLIITTATITI ITAA TTT Teese ssst7) 


(, pa) 
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PROCEDURE Initialize labels; 


( This procedures establishes the ee labels for 
tours, activities, and quarters lef 


Tour (1) := 
Tour (2) 2:3 
Tour (3) 1= 
Tour (4) 3:2 
Tour (5) :2 
Tour (6) :s 


First Tour ’ ; 
"Second Tour 
‘Third Tour ' : 
"Fourth Tour 
"Fifth Tour in} 
"Sixth Tour ': 
Tour (7) := "Seventh Tour °; 
Tour (8) is "Eighth Tour '; 
Tour (9) := Ninth Tour | 
Tour 101, 22 "Tenth Tour '; 
Tour (11) := ‘Eleventh Tour ° 
Tour (12] 2:2 'Tvelfth Tour '; 


Activity C 'A’ ) := "Prof rng °; 
Activity C 'B’ 1 t= "Prof Educ “f 
Activity € 'C’ ] := 'WashDC 
Activity £ °D’ 7:2 'Shore chia Jf 
Activity C "E? ] 12 'Fleet Unit °; 
Activity C °F? 1 22 "Afloat Staff | 
Activity € '6’ ] s= "Shore (OUTUS) °; 
Activity € °H' 1:2 'Segaration '; 
TLength (1 ] 22? vith 1 gtr left?) 
TLength ( 2] 22° with 2 gtrs left ’; 
TLeagth (3) :=° vith 3 atrs left’; 
TLength C4122 ' vith 4 gtrs left’; 
TLeagth £5] 2:2’ vith 35 qtrs left’; 
TLength (6 ) 33’ vith 6 qtrs left’: 
TLength ( 7 3 :=° vith 7 gtrs left’; 
Tlength (8 } := ' vith : qtrs left’: 
TLeagth (9) :* ' vith 9 gtrs left” 
TLength € 10 ] :2 vith i0 sire left’; 
TLeagth {( 11.) s=’ with 11 qtrs left? 
TLength € 12 ] 23° vith 12 qtrs Left’; 
TLeagth € 13 ] := ' with 13 qtrs left’; 
Theng th € 14] 22? vith 14 qtrs left’; 
ai C15 J 3 vith 15 gtrs left’; 


Tength C16 11 


vith 16 qtrs left’; 


END} { Initialize labels ) 


(ZESSSSATATITTTITITITTTSTTTTIT TTT IT TTT z eee ITT sees zz sz zz IzIT33 
SITITITITTAITSITITITITTIFITISIITIITTTISTTITTTTTTIT ETE ITI zIF3535F3335F 33333) 


{.pa) 


PROCEDURE Initialize hilimits; 
{ This procedure reads high liait data frow a data file on the disk ) 


VAR 
+ tl 
ie File TEXT; 
BEGIN 


Elektine a 10); 


GotoRC ( 
WRITE (? 


a lEitlalizing the high limits using the file: ’, Hilidata) ; 
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Hilidate :* COMCAT (Hilidata,’ hid’); 
ASSIGN (Data file, Hilidata)s 
RESET (Date Tile); 
WHILE WOT EOF (Data file) DO 
READ (Data file, T >; 
IF MOT EOF (Data flle) THEN 
BEGIN 
READ (Data_file, Skip); 
READ (Data file, A )} 
READ (Data file area 
REAM (Dafa file, Hilimit [ 1 
END; { end if not end of file 
END: { end while not EOF loop ) 
CLOSE (Data file); 
END; { Hilimit procedure ) 


bosovesesoscressosososoodrespossssecsscsosvosscesessos rer pes oeressri creer eos 
3ZITIIFIIFIIIIFTIZTIFITIITIIIIZIIZIITIFTIITIF3 355 3539239773333 2FI5 357 3323373} 


{.pa) 
PROCEDURE Initialize lolinitss 
{ This procedure reads low limit data from a disk file } 
VAR 
Ts INTEGER; 
As a 
Data files TEXT; 
BEGIN 
Blankline (23, 10); 
GotoRC (23, 1): 
WRITE (? Initializing Low Limits using the file: ’, Lolidata)s 
Lolidata := CONCAT (Lolidata, ’.lod’); 
ASSIGN (Data_file, Lolidata); 
RESET (Data_file); 
WHILE NOT EOF (Data file) DO 
BEGIN 
READ (Data_file, T )3 
IF NOT EOF (Data file) THEN 
BEGIN 
READ (Data file, Skip); 
READ (Data_file, A) 
READ (Data file, Skip); 
READLN (Data file, Lolinit £ 1, AJ) 
END; { end if not end of file ) 
END: { end vhile not end of file } 
CLOSE (Data file); 


EMD; {€ Loliait procedure ) 


A) 
fry 


Rosorsosorssosetocsosespeposrsorecseseseseepospcecessoserpecespoessases esas | 
boPedoopresooorpisorserrerroessporeroosropesetoososeterepeperpirreppiroper rey 
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{. pa) 


oo Dirlist; 


This isa afaele program to list out the directory of the 
oe, Ee ehiel ) drive in accordance with flletype chosen. 


} 
type 
Chari2arr z array { 1..12 ] of Char; 
String2d s stringl 20 1; 
RegRec = 


record 
a BX, CX, DX, BP, SI, DI, BS, ES, Flags : Integer; 
b 


var 
Regs egkecy 
oT : a 1..43 ] of Byte; 
Mask : Chari2arr; 
Maa’ ‘ Bar (pee 
I,Y,Error, | : Integers 


begin { aaln body of prograe DirLlist ) 


ee SizeDf (DTA) 4 { Initialize the DTA buffer ) 
FL IChar (Mask Slze0f (Mask yy { Inltiallze the aask } 
F111 Char (Wank Size (Wank On { Initialize the file nase ) 


Regs.Al 13 $ 1 Function used to set the DIA } 
Regs.DS := Seg(DIA); { store the paraneter At abe in DS } 
Reqs.DX 12 OFS (DTA); { set in DI } 
HSDos (Regs): { Set DTA location } 

Erroy 1:2 0; 


IF Choice = '1° THEN Mask s= '77727777. nod’; 

IF Chelce = '2' THEN Mask s 27777777. ard’: 

IF Choice = °3° THEN Mask s= '7272777?. led’; 

IF Cholce 2 '4' THEN Mask 32 '77777277. hid!: 

IF Choice 2 'S’ THEN Mask 33 '?7277777. 10d! 

( Use global search )} 

Regs.AX 12 $4800; { Get first er ae } 
Regs.08 :3 Seq (Mask) { Point to the file 
Reqs. DX := Ofs(Mask); 


Reqgs.CX 33 223 { Store the option ) 
HSDos (Regs); { Execute MSDos call } 
Error 33 Weg. Al and $FF; { Get Error return ) 
J 32 fs { initialize *I' PS. the first elesent } 
if (Error = 0) then 
eat 
tan) 5 Chr (MemESeg (DIA) sOfs(DTA)+29419)3 
qs 

until not (WaaR(I-i) in (9 '..°°93) or (1920); 

MaaR(0] := Car ({-1)3 € set a length because assigning } 
{ by element does not set length } 


IF (Error = 0) THEN 
BEGIN 
I - rolls (NaaR)} 


Y: 
DELETE. (Haak 1,4); 
URITELN (Maa); 
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oA) 
vhile (Error = 0) do begin 


Error 15 0; 
Regs. Al := $400; { Function used to ve the next ) 
{ bet ihe Ti entry 
R le + ae Set the i tion ) 
g 
ESeOE avi and $F; { g ‘t ‘he serior return ) 
sf; 


eat 
Ka) c= Chr (HealSeg (BTA): Ofs(BTA)#29+1)); 


entil not iaREI-1} in (7 '..97)) or > 20); 
NaaR(O1 12 Chr (1-1); 

IF (Error = 0) THEN 

BEG! 

X := LENGTH (Waak); 

Y 33 J- L 

DELETE (Naak Ya 

URITELM(MaeRS 

END; { error in 
END; { while do loop } 


ends { of procedure BirList } 
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APPENDIX F 


THE FOLLOWING PROCEDURES ARE CONTAINED IM THE DISK FILE “SELECTIO.PAS* 
(33I2ITITIFIITIFIIIIITIIIIIIIIIIIIIIIIZITTZITII37 

SITSITIIITIILIIFITFIIIIII33) 
{ This file contains the folloving procedures 


Selection menu 
Reviev_selection 


} 
PROCEDURE Selection menu; 


{ This procedure provides the selection menu display and 
choice evaluation aechanics ) 


VAR 

Choices CHAR 

Ok choice: BuOLEAN; 
BEGIN 


REPEAT { until choice is correct } 
ClearScreen; 


WRITELN 

WRITELW (? Calculations have been completed for ',YrCount,’ years and ’, 
Quarter,’ quarter(s).’)3 

Got oRC (6, 13 

WRITELN ( 


Choose one of the following selections.’); 
Got oRC (8, 1)3 
WRITELN ( 


Change data values.’); 

Reinitialize data values.’)3 

WRITELN (? 9. Ready for calculations.’ ); 

GotoRC (19, 5); 

VRITE (Please type in the number of your selection [0,1,2,3,4,5,6,7,8,9)s ')3 
READ (Kbd, Choice); {read input into var selection) 

Firstse "0's Lasts= se Ok choice :© true 

Correct choice (Choice, fi 

UMTIL Ok choice = true; 


IF Choice = '0’ THEN ALI finished s* trues 
IF Choice = '1’ THEN Review_selections; 

[fF Choice = '2' THEN Disp assign; 

IF Choice = '3! THEN ae tounl | 

IF Choice 2 '4’ THEN Disp paths froa; 

IF Choice = 'S’ THEN 4 to} 

[F Choice = '6’ THEN Disp billets; 

IF Choice = '7’ THEN Changes; 


IF Choice = '8’ THEN 
BEGIN 


lnitial s= false; 
Initializes 


LN 0. All ee a 
WRITELN (? 1. Review the port ay selections.’ )3 
VRITELW (? . Display an activity v.s. all tours’); 
WRITELN (? 3. Display a tour v.s. all activities’): 
WRITELW (° 4. Display the transfer paths FROM an assignaent’); 
WRITELN (? « Display the transfer paths TO an assignaent’); 
WRITELN (? . Display the assignments by quarters left’); 


{ inputs for correct choice ) 
rst, Last, Ok choice);{ procedure. ) 
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END; ( if choice = 8 } 
IF Choice = '9' THEM Ask_for_years} 
END; (Selection Menu) 
rasieesrtehitttsttthittsresstrettrteretnerttiretentttttstttrsresettettettetty 
(.pa) 
PROCEDURE Reviev_selections; 
( This procedures contains the sanple displays } 


BEGIN 
ClearScreen | 
Center (04, Activity v.s. all tours yy 
Center (06, "Displays the nuaber of officers | 
Center (07,'at a specific assignaent for al] tours.’); 
GotoRC (9,105 
VRITELW (’For example the display will look likes’); 
WRITELN; 
URITELNW ¢! Prof Educ '); 
WRITELN; 
WRITELN (? ———_ TOURB. ceeevvcvvee ')f 
WRITELM (’ First Second Third... ')s 


WR TELM! 490 329 643°); 
Color ( black, white); 

Center (18,' Selection number 2°); 

Color ( aes blue): 

Gotor (23, 153 


Pause; 


C} earScreens 

Center (04,°* Tour v.s. all activities | 

Center (06, » Displays the nuaber of officers’); 

Center (07, "at a specific tour for all aivigaeent? r); 


GotoRC (9, 10); 

BRTELAC or exaaple the display will look Tikes’); 
WRITELAY TOUR? }s 
WRITELN(! ACTIVITIES® ); 

VRITELN(’ First’); 
WRITELN(? Prof Educ 400 ')3 
WRITELK(’ Pro Trng 342 ')3 
WRITELNC! WashOC gel '); 
Color ( black, white): 

Center (20,' Selection nuaber 3/); 

Color ( white, blue): 

GotoR¢ (23, ts 

Pause} 

ClearScreeny | 

Center (04,’° Transfer paths FROM an assignaent °’): 


Center (06, » Displays all of the transfer Sh percentages’); 
Center (07, oy the nuaber of officers transferred, from a specific assignsent.’); 


GotoRC (10,1 

WRITELN (? ‘for | example the display will look likes’): 
WRITELN: 

WRITELR (? to 3rd tour Pro ey 
WRITELN (? / 32 or 3 officers’); 
VRITELN (¢! : 


WRITELN (’ 2nd tour Pro ed ---- ts 3rd tour ‘Pro trng oe 
WRITELN (° 9 officers \ 14% or 2 offleers’) 
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WRITELH (! transferred VPs 
WRITELM (! to 3rd tour WashBC '); 
WRITELN (! WZ or 2 officers’); 


Color ¢ black 

Center blictian nuaber 4’); 
Color ( ial te 
RotokC ( eon 


ClearScr een 

Center (04,°° Transfer paths TO an assignment °'); 

Center (06, Bisplays the auaber of officers trans terr 4) 
Center (07, INTO an assignaent {roe those assignaents in’ )3 
Center (09,’the previous tour. '); 

BotoRl (10,10); 

WRITELW Ofor « exaaple the display will look likes’); 


WR 

VRITELN (’ FROM 2nd tour Pro ed -\ 
WRITELN (? 312 or 5 officers \ 
WVRITELW (! TO 
URITELN (? FROM 2nd Tour Pro trag----\ 3rd Tour Shore (COMUS) 
URITELW (? §©142 or 2 officers 
WRITELN (! / 9 officers 


WRITELN (’ FROM 2nd Tour Wash DC ---/ transferred 
URITELN (’ = LZ or 2 officers / 

Color ( black, vhite); 

Center (21,! belection nuaver 3); 

Color ( ite blue); 

GotoRC (23, 13; 


Pause; 


ClearScreeny 

Center (04,’" Assignaen s by quarters left °")s 

Center (Displays the nuaver of officers at a specific Ae 

ttl ate gnaent by hov sany quarters they have left there’); 
dj 

a TELN (tor example the display will look likes’); 


wal 
WRITELN (! Officers assigned: )s 
TELM (+) 


wei 
URITELN (? : 43 vith I qtr left’): 
URITELN (? g vith 2 qtrs left’); 


URITELH (? 9 vith 3 gtrs left’); 
WRITELM (°'): 

WRITELR (??); 

WRITELM (?")s 

Color ( black, vh 

Center (21,' rAelection nuaber 6’); 

See ar uhitey blue); 


PRAT 
END; { review ) 
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Me BO Gee SRO SS oe See we 


APPENDIX G 


THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE °CALCULAT.PAS° 
PPPS Pd ESOSSSPELDS>S>>S>> DES SSD D> S>SESI>S ISOS SSP ODED SSSRSOSISII 9995999929999: 
PoP eSSSSPODSSESOSISISODSS>DSDSSIPSO> PSD SL>SSDI POS ODID> SEDO SES ODO SDS PS SPD IPD OS 2F 


{ This file contains the following procedures 


Ask_for years 
Calculafions 


PROCEDURE Ask_for_years: 
VAR 


Years_wanted, 
Qtrs wanted: "INTEGER: 


BEGIN 
REPEAT { until NRYears answer is an integer ) 


REPEAT { until NR@Quarters ansver is an integer } 
Blankline (23, 1); 
WRITE (° Choose 0 years & 0 quarters to quit.’); 
DELAY (2000): 


Blankline (23, 1 


REPEAT { until correct answer ) 
Blankline (24, 
WRITE (’ Do you desire to reinitialize’,’’, 
"(set to zero) yrs ib qtrs? (Y/N) ')5 
READ (Kbd, Answer); 


Correct answer (Answer, Ok_answer); 
UNTIL Ok answer = true; 


IF Answer in C’Y',’y’} THEN 
BEGIN 


NRQuarters 
YRCount := 
Quarter := 
TeapCount := 0; 

END: (reset yrs and qtrs to zero ) 


Blankline (24, 1); 
WRITE (How aany years: <CRdand quarters: <CRddo you want to run the aodel?’); 
GotoRC (24, 16); 


{$I-) READ (Years wanted) { 
Ok_answer := (IORESULT = ne crbRBO PASCAL function to check ae type ) 


IF NOT Ok_answer THEN Invalid_answer; 
UNTIL Ok_answer = true; 
BotoRC (24, 34)5 


{$1-} READ. (Otrs wanted) {($I+ 
Ok answer := (IORESULT = 0): "Thuppo PASCAL function to check input type ) 


94 


IF (Qtrs_vanted <¢ 0) OR (Qtrs_vanted > 3) THEN Ok_answer := false; 
IF NOT Ok_answer THEN Invalid_ansver; 
UNTIL Ok_answer = true; 
NRQuarters := Qtrs_wanted + (Years vanted % 4); 
MH (Qtrs_vanted + (Years wanted % 4) = 0) THEN 


GIN 
Color ( white, red); 
Blankline (24, 1); 
WRITE ("You have chosen 0 yrs & 0 qtrs. Returning to selection menu.’); 


DELAY (2000); 

Color ( white, blue): 

Blankline (24, 1): 

EXITs { Exit from ask for years procedure } 
END; ( if NRquarters = 0 } 


Calculations; 
END; {Ask_for_years) 


{.pa) 
MUM TTT 
TITTITIITIIIIIITTIIIIITIIIIIIITIIIIIIITIIIIIIIIIIF33733333373333I33333379375) 


PROCEDURE Calculations; 
VAR 


Temp, 
Teaporary: REAL; 
TT, 


LL, 

L: INTEGER: 

AA: CHAR; 

Data_file: TEXT; 
Transfers: Tyo Dim Real; 


BEGIN 


Toomany:=false; 
Blankline (24, 1); 
WRITE (! 


QtrCounts= 0; ¢ count of years t 
FOR TT := 12 DOWNTO 1 DO 
BEGIN 


pean calculations. ")5 
at model is running for } 


FOR AA s= 'A’ TO 'H! DO 
BEGIN 


FOR LL s= 1 TO 16 DO 


BEGIN 
Temp_billet_node {T7T, AA, LL} := Billet_node CTT, AA, LLJ; 
END: { LL loop } 


END; { AA loop } 
END: ¢ TT loop } 


REPEAT 
QtrCount := QtrCount ¢# I; 


FOR Ts= 12 DOWNTO 2 DO 


3/8, 


BEGIN {T Loop) 


FOR Az= ‘A’ TO 'H! DO 
BEGIN {A loop - mathematical calculations) 


Le= 13 {Length of billet nodes in quarters) 


REPEAT 
Temp. eek node CT, A, L J := Temp Billet _node C T, A, L+i);_ 
UNTIL L = 16; 


Transfers ( Te] 
(Teup Billet Node C Tt, 1M 
(Teap Billet Node [ i Jy Transfer Path (T-1,'B’,A 
(Teap Billet Node ( T-1, 'C? Transfer Path (Tl, Cr 


, | 1 3 Transfer_Path (T-1,'A’,A)) 
a i 
] 
(Temp Billet Node [ T-l, 'D’ , 1) % Transfer Path (T- i 'D', Al) 
, 1723 }) 
, 11% }) 
, 1273 Al)s 


(Temp Billet Node ( T-1, 'E? Transfer Path (T- “1; En A 
(Temp Billet Node { T- i. oh Transfer Path [T- ff oa A 
(Temp Billet Node ( T- -{, io: Transfer Path [T- - 1g) 
Bead ca: pices Billet Node { T, A, Billet Length C 1, A 1); 
Temp Billet Node [ T, A, Billet_Length € T, A J):= 
“Transfers (T-l, al'+ Temporary; 
Final totals := false: 
Billet _totals (T,A); 
IF Temp billet_total € 7, A] > Hilimit ( T, A J THEN 
BEGIN 


Violation := true; 
High_varning; 


IF Stop_cale_T THEN EXIT; 
END; {if high warning} 
IF Temp billet total € T, A] < Lolimit € T, A ] THEN 
BEGIN 


Violation := true; 
Low_varning; 


IF Stop_calc_T THEN EXIT; 
END; { if low warning } 
END: { A Loop } 
END; {T Loop and mathematical calculations} 
UNTIL (@trCount = NRQuarters) OR Toomany; 
Haar Violation THEN 


TepCount s= TempCount + QtrCount; 
YrCount := TRUNC (TempCount/4); 


IF ((¥rCount % 4) > Tempcount) THEN YrCount := YrCount - 1; 
Quarter := TempCount - (YrCount % 4); 


+ 
+ 
+ 
+ 
+ 
+ 


FOR TT := 12 DOWNTO 1 DO 
BEGIN 
FOR AA := 'A’ TO 'H! 00 
BEGIN 


FOR LL := 1 TO 16 00 
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BEGIN 
Billet node (TT, AA, LL} 1= Teap Billet_node [TT, AA, LL; 
END) ("LL loop } 


END: { AA loop } 
END: { TT loop } 


Final totals s= true; 
ALL _billet_totals; 


END; { violations if } 


END; (calculations) 


a7 


APPENDIX H. 


THE FOLLOWING PROCEDURES ARE CONTAINED IM THE DISK FILE “TOTALS. PAS® 
(33S3SSITITIFIITFITIZIIIFIFIITITIIFIII333793 333333EI33573 
SESITITFTLIFILISBIIIITTTITIFIIFIIz3) 
{ This file contains the folloving procedures 
All ith totals 
Billet totals 


High_varning 
Low_varning 


PROCEDURE All billet totals; 


{ This procedure provides the aechanics for totalling 
all of the real billet nodes } 


VAR 
Ks CHAR; 
BESIN 
NN ee THEN 
FOR Xs= 12 DOWNTO 1 DO 
BEGIN { Activity Loop) 
FOR Ks=’A’ TO 'H' DO 
billet =iptal CX 


K } 12 Billet node { xX, K, 12 
trode Tt. K. 2) Billet node (J, XK, 314 
billet node [ X, t! 41> Billet node [ Y, K, 51+ 
Billet-node ( X, K, 6 1 # Billet “node CY, X, 714 
Billet-node [ X, K, 8.1% Billet rode Crk 9)¢ 
Billet-node [ X, K, 10 1 + Billet node ¢ t, K, 11.16 
Billet node [ X, K, 12] % Billetvnode ( X, K, 12] 4 
Billet node € X, K, 141 + Billetvnode ¢ X, K, 15] ¢ 
illet“node [ ¥) K, 16 3; 
END; Ct loop titlet totdl} 


EMD; ( X loop billet total > 
EMD; { if all_total is true ) 
END; {all _billet_totals ) 


Poor eee eessosesoeescons sores ei edPoreT9 99 9299999999999 999 999905 2999999902999 99 | 
SITIIITITITITTITITIFITTTFITITTIITITITITTITITATT IS IzTTIT TTT ITI II5 TFs II53) 


{.pa) 
PROCEDURE Billet totals; 


( This procedure provides the mechanics for both all 
teaporary billet totals and individual totals a the billet nodes } 


VAR 
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K: CHAR; 
BESIN. 
If Final totals THEN 
BEGIN 
FOR X:= 12 DOWNTO 1 DO 
BEGIN { Activity Loop) 
FOR Ks='A’ TO 'H® DO 


Billet Total { X, K } := Billet node ( X, K, 1) ¢ 
et _node ( , 2) Billet_node ( I, K, 3) + 

Billet“node ( X, K, 4.1 + Billetvnode ( 3, K, 5) ¢ 
Billet-node ( , K, 6 1 + Billet=node (1, XK, 71+ 
Billet“node ( X, K, 8.) + Billet“node CX, K, 9) ¢ 
Billet-node ( X, Ky 10] + Billet node Ct, k, lll 
Billet“node ( X, K, 12.) + Billet node ( X, K, 13.) ¢ 
Billetvnode ( X, K, 14.1 ¢ Billetnode CX, K, 151 ¢ 
Billet“node ( X, K, 16 )} 

END) (K loop billet total ) 


END; { X lool billet total ) 
END C if all_total is true } 


BEGIN 
Temp Billet Total { T, A) t= Temp billet node ( T, A, 1) ¢ 


Teap billet node (1, Ay 21+ Teap billet node (1, A, 3) ¢ 
Temp billet “node ( 1, A, 4.) + Temp billet node ( 7, A, 5+ 
Teap dillet “node ( 1, Ay & ) + Temp dillet=node ( 1, A, 7) ¢ 
Temp billet node £ T, A, 8 ] + Temp billet node ( T, A, 9) + 
Teap Dillet node ( T, A, 10] + Temp billet node ¢ f, A, tl) ¢ 
Temp billet node ( T, A, 12] + Temp billetonode ( 1, A, 13.) ¢ 
Teap billet node ( T, A, 14.1 + Temp billet node ( T, A, 18.1 ¢ 
Temp billet node [ T, A, 16 } 


END; (else J 
EMD; {totals ) 


BPocdscgovovosvorsiocserecerprssesespooveposssesosorssesrsrrrrererrereseses se 
SoS oP dod ddosdvodrocdosoordosrresroererordorreroprrosrererperrerersesrerseseren 


{. pad 
PROCEDURE High _varning; 


{ This procedure YE the displays and mechanics for 
displaying the high varning message and post varning 
choice display } 


VAR 


Finish high, 
Ok_activity: BOOLEAN; 
Tottempcount, 
Totyrcount 
Totatrcount, 
Totquarter, 
Rcount, 

$ 


Ls” INTERER 
Teap : REAL; 
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Kr 
batacfile TEXT; 


Tottempcount := Teapcount + @trCount; 
TotYrCount 1* TRUMC (TotTeapcount/4); 


IF ((Tot¥rCount 3 4) > Tottempcount ) THEN TotYrCount 1= TotYrCount-1; 
TotQuarter := TotTeapcount - (TotYrCount 3 4); 


REPEAT 
creteeesaan| 
Color ( sat e, red): 
Got oR (2, 0}; 
oe ELM ; Ate  TotYrcount,’ year(s) and ’,TotQuarter,’ quarter(s), '); 
WRITELN (The constraint oy ' Tour ( T ),' *,Activity € A), 
' eh pee exceeded, ' 
Got oRC (6, 10 
een Terk are ', ROUND a billet total { T, A J),’ officers there now.'): 
WRITELN the ie limit is ', ROUND (Hilimit £ T, AJ), * "Ds 
Gotert (10, ees biue); 


TELN (r Mh do you desire to do now?’ ); 
URITELW (°'); 
WRITELN (’ «60. Abort siaulation. Return to selection menu’) | 
WRITELN (' f. Ignore limits and continue siaulatioa.’); 
WRITELN (' 2. Back up one quarter in the simulation.’); 
REPEAT {until answer correct} 
ate ah 34) 
READ ( bd, Choice ): (read ASSIGNMENT Letter) 
First ‘2 0°; Last 12 oa Ok choice t hel 
Correct choice ( Choice, First, Last, Ok_choice)s 
k activity = Ok choice; 
NTI Ok “activity > true; 


IF Choice = '0' THEN 
BEGIN 
FOR TT := 12 DOWNTO 1 DO 
BES IN 
FOR AA s= 'A’ TO °H? DO 
BEGIN 


FOR LL s= 1 TO 16 DO 
reap bi illet_node (TT LL] t= Billet node (TT LL) 
ille & t= Bille @ 
Teap billet total ( i rinains Billet fotal ¢ Tf, Ne . 
END: { LL loop } 
END; { AA loop } 
END; { TT loop } 
Stop _calc_T := trues 
Toomany := true 
Violation :3 talse; 
END; { if choice is zero / abort } 
IF Choice = '{" THEN 


BEGIN 
GotoRC (16, 1); 
WRITE (* Setting ', Tour [1 ), Activity (A },! high Limit to 9999, °)5 
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GotoRC (18, 1); 
WRITE (° and continuing calculations!’); 
Hilieig CT, A} s8 9999; 
Violation s= falses 
stop calc $2 false; 
3 ( if choice vas 1) 
IF Cholce 2 °2) THEN 
BEGIN 
WMouarters := OtrCouat - 1; 


FOR TT s= 12 DOWNTO 1 00 
BEGIN 
FOR AA s= A’ TO PH? DO 
BEGIN 


iy s2 {| TO 16 DO 
Tenp_billet_node { TT, AA, LL J s= Billet mode { TT, AA, LL ) 
feap“eillet-total ( Th, Ak i t= Billet tofal € TT, Aad’ : 
EMDs { LL loop } 
EMD; { AA loop ) 

END; { TT loop } 

IF WRQuarters = 0 THEN 

BESIN 

Color ( white, red); 

Dlankline (24, 1); 

WRITE (One less quarter is 0 years and 0 quarters new calculations.’ ); 


DELAY ane 
Blankline (24, 1); 

WRITE (! Returning to selection aenu.!); 
DELAY (2000); 

Color ( valte, blue); 


Blankline (24, 1)} 
Stop _cale_T 3:2 true; 
END 


ELSE 
BEGIN 
GotoRC (16, 1) 
WRITELN (' AfSer completing calculations for one less quarter’); 
WRITE aon acdel vill return you to the selection senu.’); 
Violation :2 false; 
Stop_calc_T s= trues 
Calculations; 
EMD; { If NRQuarters = 0) 
END; { Lf choice vas 2 } 
Finish high s= trues 
UNTIL Flaish hlgh = true; 
END; { High warning ) 


BooresedsovevosovresssecogssvrovesessessssPPePoresrrseorses reso re oree er soeoe: 
TIIITIITIITFTTIITIIITIITIITIITIIITITIIIIIII3353F33I35333533335333333353733) 


{. pa} 
PROCEDURE Lov_varning; 
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( This procedure provides the displays and mechanics for 
displaying the low warning nessage and post varaing 
choice display } 


VAR 


Finish lov, 
Ok activity: BOOLEAN; 
Toktempcount , 
Totyrcount 
of , 

quarter, 
Rcount, 


8 
] 
Ls INTEGER 
Temp : REAL; 
AA, 
Ks oor 
Data_fikes TEXT; 


Tottempcount := Teapcount + QtrCount; 
TotYrCount 23 TRUNC’ (Tot Teapcount/4); 


IF ((TotYrCount 3 4) > Tottempcount ) THEN TotYrCount := TotYrCount-1; 
TotQuarter := TotTeapcount - (Tot¥rCount $ 4): 


REPEAT 
rr oe 
Color ( white, red); 
Got oRC (2, ; 
pe ay A ' TotYrcount,’ year(s) and’, TotQuarter,’ quarter(s), '); 
8 
WRITELM ('The Constraint for *,Tour { T 3,’ ' Activity [ A}, 
» has been violated.’): 
Got okC (6 10)3 
aia dit are ', ROUND (Tem6_billet_total [ T, A ),’ officers there now.’); 
URITELN The lov linit is 9, ROUND (Lolimit £ T, A), ’ '): 
Coler ( weet blue); 


WRITELN (? What do you desire to do now?'): 

WRITELN (’ 0. Abort simulation. Return to selection menu.’)} 
WRITELN (’ =ot. Ignore Limits and continue sisulation.’); 
URITELN (’ 2. Back up one quarter in the sisulation.’)3 


REPEAT (until ansver correct) 

GotoRC (10, ae 

READ (kbd, Choice )} (read ASSIGNMENT letter) 
First := "0's Last := '2's Ok choice := pied 
Correct choice ( Choice, First, Last, Ok_choice); 
Ok activity s= Ok choices 

UNTIL Ok_activity = true; 


IF Choice = '0’ THEN 
Begin 
FOR TT := 12 DOWNTO 1 DO 
BEGIN 
FOR AA t= 'A' 70 'H' DO 
BEGIN 


FOR LL := 1 10 16 DO 
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neGIN 
Tenp billet_node {TT, AA, LL) 1= Billet node (TT, 
oe billet total ( tr Mads» Billet fotal ¢ TH, Mh hy 
EMD; { LL loop } 


ENS; { AA loop } 
END; { TT loop } 


Stop _cale_T := true; 

Tootew := trues 

Violation 3 eel 

EMD; ( if choice is zero / abort ) 


If Cholce > *1' THEN 
BESIN 


BotoRC (16, 15 
WRITE (? Siting ' 1 Tour (1), Activity £0,’ low linit to 0,'); 
1); 


Sot orl (18, 

WRITE and CONTE Oe calculations!’ 
tallait (CT, Ad sz 0s 

Violation := false 

Stop calc T 32 false; 

END; { if choice vas 1) 


If Choice 2 '2' THEN 

BEGIN 

WROuarters := OtrCount - 1; 
FOR TT s2= 12 DOWNTO 1 60 
BEGIN 


FOR AA 38 'A' TO 'H? DOD 
BEGIN 


FOR LL s= 1 TO 16 DO 
lg 


billet node { TT, AA, LL] := Billet node [ TT, AA, LL} 
fey total can ite btatet were inar 


EMD: { LL loop ) 
ENO; { AA loop } 
EXD; { TT loop } 
A yl 2 0 THEN 


Color ( white, red); 
ane (24, 1) 

WRITE (One less quarter is 0 years and 0 quarters new calculations."); 
DELAY ine (2 
Blankline (24, 1) 
WRITE Returning to selection eaenu.’); 
DELAY (2000); 


Color ( whlte, blue); 
Blankline (24, 1); 
Stop calc_T :2 true 
EMD 


BEGIN 

GotoRC (16, i 

WRITELW (After completing calculations for one less quarter’); 
WRITE (' the model will return you to the selection aenu.’): 
DELAY (2000); 

Violation := false; 

Stop_calc ay :5 true; 

Calculations; 


tos 


END; { If WROwarters = 6) 
END; ( if choice vas 2 } 
Finish_low := true; 
UNTIL Finish _low = true; 
EMD; {€ Low varning ) 
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APPENDIX L 


THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE °CHEDATA.PAS® 
SLesrposeosvesspoes sees sesesosesssoveeseseseressssesrssseeesesese prose ieee oe: 
odes ve osesersorsosssssocsveserossssseveseossseroosposooeooososrosporereo rere 


{ This file contains the following procedures 


Changes 
Change_ accessions 
Change arcs 
Change length 
Change_hiliaits 
Change _lolinits 


PROCEDURE Changes; 


{ This qi eure proves the display and response evaluation 
for changing data ) 


BEGIN 
Finished := false; 


IF NOT (POS ('.’ Nodedata) = 0) THEN Strip (Nodedata); 
[F NOT (POS ('.',Arcdata) = 0) THEN Strip (Arcdata); 

IF NOT (POS ('.’,Lengdata) = 0) THEN Strip (Lengdata); 
IF NOT (POS (’.'’ Hllidata) = 0) THEN Strip (Hilidata); 
IF NOT (POS (°.’ Lolidata) = 0) THEN Strip (Lolidata); 


REPEAT {until finished true )} 
ClearScreen: 
TELN 


i 
WRITELN (? ‘ys 
WRITELN (! Which data do you deslre to change?’); 
WRITELN (’ =?) 
WRITELN (? Input data Data file '); 
Got oRC (8, 1); 
WRITELN ( 0. No changes/finished changes. '); 
WRITELN (' 1. Nuaber of officer accessions.'); 


WRITELN (? 2. Transfer ip percentages: », Arcdata )}3 
WRITELN (! 3. Assignaent tour lengths: a hengeeta) 
WRITELN (? 4, High limits: ') Hilidata ); 

J. Low limits: f, Lolidata ); 


WRITELN (? 

WRITELNs WRITELN: 
REPEAT { until choice correct ) 
GotoRC (16,1): 


1 
WRITE (' Type your selection [0,1,2,3,4,9]: '): 
READ (Kod, olce): (read input into var selection) 
First := 70's Last s= 'O's Ok choice := trues {inputs for correct_choice ) 
Correct Choice (Cholce, First, Last, Ok_choice); { procedure. 
UNTIL Ok_choice = true; 


IF NOT Ok_choice THEN Changes; 

IF Choice = '0' THEN Finished := true; 
IF Choice = '1' THEN Change accessions; 
IF Choice = '2' THEN Change arcs: 

IF Choice = '3' THEN Change length: 

IF Choice = '4' THEN Change "hilinits; 
IF Choice = 'S' THEN Change loliaits: 


CTs | Se ee | ee | 
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UNTIL Finished = true; 
END; ( Changes ) 


BSeeressosessesecseseoecsessosesersesessosesessessesesessesessestesese ses gesy 
eS dessororposvododosecrsosoorssissoresecresesssssoossotrosossssessso spot see ey, 


{.pa) 


PROCEDURE Change_arcs; 


{ This procedure provides the display and mechanics 
to change transfer path percentages } 


CONST 
Maxpercent = 100; 
VAR 


Ok_selection, 

pk pct, 

Quit, 

Ok_total, 

k_tour, 

Ok activity, 

Finished c g 

Finished pa hs BOOLEAN; 
: CHAR: 

Path total, 

i : REAL: 


RR 
Tokal : INTEGER; 
BEGIN 


Bete := false; 

Ok tour := false; 

Ok activity := false: 
Ok total := true; 

Quit := false; 

Finished path := false; 
Finished chg := false; 


REPEAT {until finished changes) 


REPEAT { until selection ok } 

Ok_selection := true; 

Chg_var := ‘Which assignment do you wish to change the path 2 from?’ 
Clearscreen: 

Dchoicess 

Clearscreen: 


If (T = 12) THEN 
BEGIN 


Ok selection := false; 

Cofor ( white, red); 

Blankline (24,1); 

WRITE (' There are no transfer paths from Twelfth Tour assignments.’): 
DELAY (2000); 

Color ( white, blue); 

Blankline (24,1) 

END; { if tour 12 is chosen) 
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IF (A in C'H', "Rh? )) THEM 
BESIN 


Ok selection :* false; 

Color ( white, red); 

Blankline (24,1) 

WRITE (' There are no transfer paths from Separation assignaents.’); 
DELAY (2000); 

Color ( white, blue): 

Blankline (24,1): 

END; { if tour 12 is chosen) 


UNTIL Ok selection » true; 
Path total := 0.0; 
FOR Ki='A’ TO 'H! 00 


BEGIN 
Path_total := Path total + Transfer_path { T, A, K )} 
END; ( path total)” 


Froa_pathscrns 

pene ae 5): 

WRITELN(? FROM? )s 

BctoRC (Il, 2); 

URITELN( Tour ( T ),Activity € A 2): 


RR 3= 2; 
FOR 72 s= 'A’ TO 'H? DO 
BEGIN 


GotoRC ( R Hy 

WRITELN (? to! 1,’ °, Tour € Tel J, Activity € 22 2); 
GotoRC (RR, 423} 

cot path(T,A,22]8100):420, 92"); 

RR := RR + 3: 

END; 


BotoRC (16, 2)3 
WRITE (Percent Total’); 


GotoRC (17,1) 
wRiTe (| (Path _total3100):4:0,' 2°); 


Path total r= 0.0; 
REPEAT { until Ok_total true } . 
REPEAT { until quit with current path breakout) 
REPEAT {until ok choice } 
GotoRC (24, 1); 
WRITE Ontch path Z do you wish to change?(A-H)or(@ to quit) me 
GotoRC (24, 35); 
K := UPCASE (Kk); 
Hee in CPAP, BPC? DY EDF? PG! PH! 89) THEN Ok choice := true 
BEGIN 
Ok_choice := false; 
Invalid_ansver: 
END; ( If K correct choice } 
UNTIL Ok choice = true; 
Qk choice := false; 


IF K = 'Q" THEN Quit:= trues 
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IF NOT (Quit) THER 
BEGIN 


REPEAT { until Ok_pct true ) 


FKs: A THEN GotoRC (2, i 
'B? THEN GotoRC (5, 42); 
1C? THEN GotoRC (9 1 i 
0) THEN GotoRC (1 2)5 
4E' THEN GotoRC (1 4, 42): 
'F) THEN GotoRC (17, 42); 
'G’ THEN GotoRC (20, 42): 
"H? THEN GotoRC (23, 42); 


($I-} READ ( P ) ($1#) 3 (read percent nuaber but first cancel 1/0 } 
{ checking to prevent error if non real } 
{ key is struck accidentally. Then turn back on } 
Ok_pet := (IORESULT = 0);{TURBO PASCAL [/0 error check. If input } 
"(was in fact correct ive. areal then } 
{ the TB function [ORESULT vill return a 0 } 


IF (P > 100) OR (P< 0) THEN Ok_pct := false; 
IF Ok_pct AND (Billet_length { T+, K ) = 0) THEN 
BEGIN 


GotoRC (24, 1); 

Color ( white, red ); 

BI ankline (24, 1); 

WRITE (' You are " sending officers to an assignaent with a length of 0 '); 
DELAY (2000); 

Blankline (24, 1); 

WRITE (' Do not forget to change the tour length of that assignaent.’); 
DELAY (2000); 


Color ( vhite, blue); 
Blankline (24, 1); 


END; 
IF WOT Ok_pct THEN Invalid_answer; 
UNTIL Ok pct = trues 


Ok pet := false 
Teaerelaaths CT, Ay KD t= (P/100); 


=~ 2) ee Se EO ES 
AMMAN MIM 
FE PS ISPS PEPE IK 
| 


IF K = ‘A’ THEN GotoRC (2, 42); 
IF K = 'B' THEN GotoRC (5, 42): 
IF K = iG Pea eae (B, 42): 
IF K =D? THEN al, 42}; 
IF K 2 'E! THEN Eotert ae 42): 
IF K = 'F’ THEN GotoRC (17, 42); 
IF K = 'G? THEN GotoRC (20, 42): 
IF K = 'H! THEN GotoRC (23, 42): 

Color ( blue, vhite) 

WRITE (!! (Tfanster_path (T,A,K13100):4:0,' 2): 

Path total := 0.0; 


FOR Ks="A’ TO 'H! DO 


BEGIN 
Path total := Path total + Transfer_path [ T, A, K J; 
END; { path total)” 


GotoRC (17, 1); 
WRITE "(Path botalti00):4:0,' 2’): 
Color ( white, blue J; 


END; { not quit if} 
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UNTIL Quit = true; 

IF Quit THEN 

BESIN 

Qk total := true: 

Path total := 0.0; 
FOR Ks2’a’ TO 'H? BO 
BEGIN 


Path_total := Path_total + Transfer_path [ T, A, K ); 
END; { path total) 


Total :© ROUND (Path total % 100); 


IF (Total = 0) OR (Total = 100) 
THEN Ok_total := true 


BEGIN 

Ok total := false; 

Ok pct := Key 

Ok choice : false; 

Quit := false: 

Color ( white, red); 

GotoRC (24,1)s 

Blankline (24, 1); 

WRITE (The total of transfer percentages must equal 100 or 0’); 
DELAY (200 


(2000) 
Bl ankline (24, 1); 
WRITE (? They now sua to ’, Total,’ A) F 


DELAY say 
Blankline (24, 1)s 
WRITE (? You need to change another path percentage. ")} 
DELAY (2000); 
Color ( white, blue); 
Blankline (24, 1); 
GotoRC (23, 30); 
END; { if percent not equal to 100 ) 
END; {if quit true) 
Quit ss false; 
UNTIL Ok total = true; 
Ok total 32 false; 
Another _change; 
IF Answer in C'N’,’n’) THEN Finished_chg := true; 
UNTIL Finished chg = true; 
END; {Change_arcs) 
PPPOSSOSSP>S>DSSODESI>ISIIOS ISOS ISIS SSSISISOIDSPESIOSS ISIS OS SISOS OP SDPO ODED 
dPddPS>S>S>DS>DS>DD>>D>I>OS>IDO>EDIDD SDDS IOS DO SOS SO DIO SSO POD PSI DSI DPD PI EDIO2 
(.pa) 
PROCEDURE Change length; 
( This procedure provides the displays and mechanics for 
changing assignaent tour length ) 


VAR 
Finished leng, 
_tour, 
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Ok_activity: Boolean; 
BEGIN 


Ok_tour := false; 
Ok activity := falses 
Finished Leng 32 false; 


REPEAT {until finished_leng true ) 

Chg_var := ‘Which assignment tour length do you wish to change?’: 
Clear screen; 

Dchoices: 


REPEAT { until number entry is correct } 
Eotekt (3 1); 
WRITELN i ‘hesold ©, Tour € T dqactivitylt RU SureaneRiee 


th { I A 3:0," quarters’) 
ve TELM WRITELA RI TELA se 


ITE ( How many a acts long do you want this pea feeb, now? '); 
{$]1-} READ ( New Len th C Tf, ; 1) {($I+}: {read new length nuaber)} 
Ok_ansver := (IORESULT = 6);' { TURBO PASCAL 1/0 error check. 1f input ) 

{ vas in fact correct i.e. an integer then } 
{ the TB function IORESULT will return a 0 } 


IF NOT Ok_ansver THEN Wrong_ansver; 
UNTIL Ok_ansver = true; 
BotoRC (10 
GRITELW (the he * Tour (1) eight A 
' length Nev Len ue i ,Al,! 
billet Length ( T/A Js= Nev ‘Length { 
Another change; 


IF Answer in ['Y',"y'} THEN Finished_leng := false; 
[F Ansver in C'N','n’) THEN Finished leng := true; 


UNTIL Finished_leng = true; 
Finished := false; 
END; { Change_length } 


quarters.'); 


CSESTTSFSTIFITAAIITIT SASL TT TTT TTT TTT Tes T Tee T TIT ITI sIF 333 
PSPSPSPPOPSPIPSPDEPIS>DSDIPPSSPD>SSSPOD>DPDIDISIDISID IPSS OP EDIDOSPSP SIS E DI DPT 


{,pa) 
PROCEDURE Change_hiliaits; 


{ This procedure prcuiees: the oleae and mechanics for 
making changes to the high liait data } 


VAR 
ase high, 


k_tou 
Ok_ “activity: Bool ean: 
New limit: Two Dia Reals 


BEGIN 


Finished_high := false: 
Ok_tour 3= alse 
Ok activity := false; 


REPEAT ( until finished Algh is true ) 
Chg_var s= Which high Timit do you wish to change?’} 


Clearscreen; 
Bchoices; 
until number entry is correct ) 

Blilet_ total ( T, A J :3 Billet node ( T, A, 1) + 
illet_node { T, Ay 21+ Billet node fT, A, 3) + 
Billet node ( T, Ay 4.1 + Billet node ( T, A, 5] + 
Billet node { T, A, &6 ) + Billet node { JT, A, 7 ) + 
Billet“node ( T, A, 8 1 + Billet node ( T, A, 92 + 
Billetcnode ( T, A, 10) + Billet node { f, A, 11) 4 
Billet_node ( T, A, 12 1] + Billet node { T, A, 131 ¢ 
Billet_node ( T, A, 14] + Billet node (CT, A, 15.3 4 
Blilet_node C 7, A, 16 J; 


Clearscreen 

BotoRC (3) 3 

WRITELW ( The old high liait for 1) Tour t T Jy Activity CA ), 
is’, Hillalt € T, A $2820,” officers.'); - 

WRITELN: 


URITELN (° There currently are ’, Billet total CT, A 1:38:30, 
' assigned.’ ); 

Wew limit { T, A} s= Lolimit [ T, Ady 

TELN 


I 
WRITE ( How many officers do you want as the high limit now? ')s 
($I-} READLN ( New Limit ( T, A 1) (81+): (read new Length number) 
Ok ansver := (IORESOLT = 0); '( TURBO PASCAL 1/0 error check. If input ) 
( vas in fact correct i.e. an integer then } 
( the TB function IORESULT will return a 0 ) 


If NOT Ok_ansver THEN Wrong_ansver; 
UNTIL Ok_ansver = true; 
Got oRC (1091) 
VRITELN ( The new high limit for ’, Tour (7), 
Actlvity (AJ,’ is’, New limit  T, A 1:810,’ offlcers.’); 
Hilinit ( 1, A lr= New linit { T, £2; 
Another change; 
IF Ansver in C'N’,'n’) THEN Finished high := true; 
UNTIL Finlshed_high = true; 
END; { Change hiliaits ) 
CSEITSTLIITTTITTTTFIITTTTTIITTTTSTITTTTT TTT zTTe zzz T TI IIITI II IzIzIF32 
SITTITIFISTTTITITITTTTATTIIIITTTTITITIITTIIT ISI ITTITITITSITIIIIIIII3z3) 
(.pa) 
PROCEDURE Change_lolinits; 


( This procedure provides the dtsplay and sechanics for 
paking changes to the low limit data } 


VAR 
Finished_lov, 
Ok_tour, 
Ok activity: Boolean; 
New limit: Tvo_ Dia Real; 
BESIN 


Finished_low := false; 


Ok_tour :2 false; 
Ok_ activity s= false; 


REPEAT (until finished low is true) 
Cho_var t= ‘Which low Limit do you wish to change?’; 


Clearscreen} 
Bchoices: 
REPEAT { until number entry is correct } 
Billet_total ( T, A J) :3 Billet node ( T, A, 1) + 
Billet node £ T, A, 21+ Billet node { T, A, 3) ¢ 
Billet node { T, A, 4.) + Billet_node C T, A, 5] + 
Billet_node { T, A, 6 ) + Billet node {€ T, A, 7] + 
Billet node { J,°A, 8) + Billet mode { T, A, 93 ¢ 
Billet“node { T, A, 10] + Bille€ node Ct, A, 11] ¢ 
Billet node {[ T, A, 12 ) + Billet_node { T, A, 13.1 + 
Billet node { T, A, 14 ] + Billet_node { T, A, 15] + 
Billet node { T, A, 16 33 
Clearscreen 
Got 


oRC (3, 1) 
WRITEIN (The old lov lieit for *, Tour C1}, Activity CA}, 
weitan; 2 toliait CT, h11820,! officers.'), 


9 

WRITELN (! There are Sn ', Billet_total € T, A 1:8:0, 

- set 1; 
New limit CT , AJ) s= Loliait CT, A J; 
WR) ELH; 
WRITE (’ How many officers do you want as the low limit now? '): 
($1-} READLN ( New Lint CT, Al) ($1#): (read new Length auaber} 
Ok_ansver := (JORESOLT = 0); { TURBO PASCAL 1/0 error check. If input ) 


{ vas in fact correct i.e. an integer then )} 
{ the TB function lORESULT vill return a 0 ) 


IF NOT Ok_answer THEN Wrong ansver; 
- UNTIL Ok_ansver = true; 
GotoRC (10,1); 
WRITELN (' = The new ', Tour [7), Activity CA) 
' tow limit is’, New limit ( T, A 1:0:0,' officers.!); 
Lolinit [ 1, A Js= Newlleit {T, A}; 
Another change; 
IF Ansver in C!N’,'n?) THEN Finished_low := trues 
UNTIL Finished low = true; 
END; {Change lolimit) 


Po oS POPS ESSP2OPISISEPP9SSPSPSPOSPSPSOPS IIIS ESOSISE PSPS ESO DsesPPIPIISOSS 99: 
poSPPSISOSISISSPSDOSS IS >> D>S>>OD> PD 9d SSSI PSOSPSPSOS>SODI SOS PS 9SP 295099209951 


{. pa) 
PROCEDURE Change_accessions} 


{ This procedure provides the display and mechanics for 
aaking changes to the accessions ) 


VAR 
Finished_acc: BOOLEAN: 
BEGIN 


REPEAT 
Clearscreen; 


BotoRC (12, 1); 
ote qr Currently the number of accessions each quarter is’); 
WRITELN’ () » ROUND (Accessions), 

' officers.’ )3 


REPEAT 
BotoRC (16, Me 
WRITE (’ 
GatoRC (17, 1)3 
WRITE (! 
BotoRC (16 
isle). READ C Atcessions) (61401 (read nev Length nusber) 
Ok_ answer 32 (IORESULT = 0); { TURBO PASCAL I[/0 error check. If input } 
{ vas in fact correct i.e. an a ha then } 
{ the 18 function [ORESULT vill return a0 ) 
[fF NOT Ok_ansver THEN Wrong ansver; 
UNTIL Ok_ answer = true; 
IF Ok_answver THEN Finished acc:= true; 
re (16, 33); 
E (ROUNDLACC essions), t  officers.')s 
Delay (1500); 
UNTIL Finished ace = true; 


END; ( change accessions) 


he nev number of accessions each quarter iss ")s 


Press (CR for no change.’)} 


APPENDIX J 


THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE "SCREENS.PAS* 
PesererSeseserseseresessopesesersosesereesosesersoseseseresesseserorsosoress: 
SPSPSPPSPSESESSPSSS>P>D SSS >O>OSoSSSSSS>SSSPS ESOL SESeSI PS ESeSSeseseSoese soe les) 


{ This file contains the following procedures 


Dchoices 
Dchanges 

From 7 
To_pathscrn 


PROCEDURE Dchoices; 


{ This Bice eeu provides the display screen and answer evaluation 
for the choices indicated ) 


VAR 


Ok ange, 
Ok tou 
Ok en Boolean; 


BEGIN 


Ok tour := false: 

Ok ut .= falses 
GofoRC (t ; 1); 

WRITELN ( Chg_var); 
WRITELN: WRITELN: 
WRITELN. (? 


TOUR ACTIVITY’): 
WRITELN: 
WRITELN (? 1. FIRST A. PROFESSIONAL TRNG ’): 
He ek a 
WRITELN (? 4, FOURTH . SHORE CONUS yt 
WRITELN (? 5. FIFTH FLEET UNIT ry: 
WRITELN (? 6, SIXTH F, AFLOAT STAFF 1): 
WRITELN (? 7, SEVENTH G. SHORE OUTUS 1). 
WRITELN (? 8, EIGHTH H. SEPARATION '): 
WRITELN (? 9. NINTH’): 
WRITELN (? 10, TENTH’) 
WRITELN (? {1. ELEVENTH’): 
WRITELN (? (2, TWELFTH’): 


GotoRC (22,5); 
WRITELN (TOUR: (type number<CR>) ACTIVITY: (type Tletter)’): 


REPEAT { Until Ok_tour true } 
REPEAT { Until Ok_activity true } 
IF NOT Ok_tour OR NOT Ok_range THEN 
BESIN 


GotoR€ (22, 14): 
{$]-} READ. ( T {$I1+} » {read TOUR number but first cancel 1/0 } 
t checking to Puen error if non integer } 
{ key 15 struck accidentally. Then turn back on ) 
Ok_tour := (IORESULT = 0); { TURBO PASCAL I/0 error check. If input } 
m was in fact correct i.e. an tne then } 


{ the TB function [ORESULT will return a 0 } 


IF (T >= {) AND (T <= 12) THEN Ok_range := true; 
IF (T ¢ £) OR (T > 12) THEN Ok tends 3 falses 
IF NOT Ok_tour OR NOT Ok_range THEN Wrong_ansvwer; 


END: { Ok_tour correct if } 
UNTIL (Ok_tour AND Ok_range) = true; 
IF NOT Ok_activity THEN 
BEGIN 


GotoRC (22, 46); 
READ (kbd, A pea ASSIGNMENT letter) 
A = UPCASE ( 
First := vate ee s= "H's Ok choice s= true: 
Correct choice (A, First, Last, Ok_choice): 
Ok a = Ok choice; 

n 


END. ot ok activity ) 
UNTIL (Ok_tour and Ok_activity ) = true: 
Clearscreen: 


END; {choices) 


1B 22$9999999999 992999909929 PP9PSPSPPPI ES IPSS PPPS SEO PSI PDIP SSOP TSP SSSI 02295 
PPP PSSOSSOSIOSPPSOSIS>SISIOSIPSPOTPSSITESIESIPSIPPOSIPSTOSIeLIeSeS TOSS TSS ese se) 


{.pad 
PROCEDURE Ochanges; 


{ This procedure Bours the choice menu display and 
also evaluates the responses 


BEGIN 


IF NOT (POS (',',Nodedata) = 0) THEN Strip (Nodedata)s 
IF NOT (POS ('.",Arcdata) = 0) THEN Strip (Arcdata); 

IF NOT (POS ("ej rbengdata) = 0) THEN Strip (Lengdata)s 
IF NOT (POS ('.',Hilidata) = 0) THEN Strip (Hilidata); 
IF NOT (POS ('.", »Lolidata) = 0) THEN Strip (Lolidata): 


Clearscreens 
GotoRC (3, 5): 
MRITELN (thg var); 


WRITELN (* Data: Data filess’)s 
WRITELNs 

Got oRC (8, 1); 

WRITELN (| 0. ' Choice zero); 


WRITELN (’ 1, Nuwber of officers at each assignment: ', Nodedata ): 
WRITELN (! 2. Transfer eae percentages: " Arcdata ): 
WRITELN (? 3. Assignment tour lengths: ', Lengdata); 

WRITELN (! 4. High liaits: " Hilidata \. 


ne! J. Low limits: , Lolidata )s 


WRITEL 
WRITELN: WRITELN: 
REPEAT ee choice correct ) 
ae (16,1 
ibe your selection (0,1,2,3,4,9): '); 
READS Kd Choice): {read input into var selection) 
First := bor, Last := '5 '; Uk choice s= true; {inputs for correct choice 


Correct Choice (Choice, First, Last, Ok choice) { procedure. 
UNTIL Ok choice = trues 


END; (Dchanges) 


} 


PSsedosoopesossessesesposespoesoesesssersossosessessssesrsrsssisisresso teres: 
sso sbosstosesisstosessstosstcssscsstssetsertspecsposssesresispeseelesss ores e ge 


{. pad 

PROCEDURE From_pathscrn; 

{ This procedure siaply draws the illustration on the screen } 
BEGIN 


Clearscreens 
WRITELN(! (ae 


WRITELN(? eee 
WRITELN(? \ 
WRITELN( \ 
WRITELN(? ee 
WRITELN(? \ 
WRITELN(’ \ 
WRITELN(! = 


END: { From_pathscrn } 


Rsestssrstssriissrettsssssscesssretesssssssssscssessssesesssssssecssssessess: 
PSPSPSPSPSPSS>SSS>SSSSSI SSDS SSSSSESISOSPI SSOP PSPIDISI PISO SS PS PO TI TP SISOS EST, 


= 
ra) 
—s 
a 
mn 
tt. 
= 
o- 
o~ 
—_ _ = ps SS Se HS he SS ee Se SHS WD wD we SS Ww Ww we we Ww we 


me “ES. De Se we SG Se Se We See Se SV 8 Se ws BS Be Se Be SF 6 We Te ee Sa 


oe? eee eee re Se ee Se eee Se See ee See See See See ee See eee See ee eee ee 


{.pa) 

PROCEDURE To_pathscrn; 

{ This procedure simply draws the illustration on the screen } 
BEGIN 


Clearscreen: 

WRITELN (FO een \ '), 
WRITELN (! \ AYE 
WRITELN (! \ ye 
WRITELN (? weeereeeecon= \ ')s 
WRITELN (? \ air 
WRITELN (? \ a) 
WRITELN (sss ere enw nne \ '); 
WRITELN (? \ "ys 
WRITELN (? \ 1): 
WRITELN (0 —s—<“‘“‘“‘“‘i él eee nnn nn \ 1): 
WRITELN (? ) a 
WRITELN (? / De 
cet ccc / 1)! 
WRITELN (! / ys 
WRITELN (? / 1): 
WRITELN (0 ssi‘ ‘é‘lé‘(lé‘(‘(‘( ll mmo ew een / ')s 
WRITELN (? / rye 
WRITELN (! / 1): 
WRITELN (! aeeecece a---/ t)s 


THE FOLLOW 


Sreserssosespsrssodssesosstipespedrsssddssssrcess: 
Pg 99000 099999999995 99039990 90 


APPENDIX K 


OWING PROCEDURES ARE CONTAINED IN THE DISK FILE “DISPLAYS. PAS® 


BITITIIIITTTITITIZIIIIF75333 33 
po 95959999599 999955 9) 


SIMIITTISTISITAIITSTIITFIFI3 
{ This file contains the following procedures 


Disp assign 
Disp_tours 
Disp_paths_fros 
Disp paths to 
Disp billets 


PROCEDURE Disp Assign; 


{ This procedure provides the activity v.s. all tours choices and displays } 


VAR 
I: INTEGER; 

BEGIN 
REPEAT { until finished) 
Finisheds= ae 
Clearscree 
Center (03, 
WRITELN: 4 
URITELN’ ( 
WRITELN ( 


TTELN; WRITELN; 


WRITELN; 


REPEAT {until choice correct 
GotoRC (18,15); 

WRITE (Type your choice: ')s 
READ (Kod BY 
A := UPCASE 
First := a; List $= 


‘nich activity are you interested in?’); 


r)s 


i}, 


re 


Professional Training 
Professional Education 
ptptls eel er 

Shore (CONUS 

Fleet Unit) 
Afloat Stat thy 
Shore (QUTUS)’ 
Separation’); 


Re 


‘eee input into var selection) 


"H’: Ok choice := 


trues 


Correct choice ( A First, Last, Ok choice): 


UNTIL Ok choice = true 
Billet total ( T, Al: 
illet_node C T, A, 
Billet node ( T, A, 
Billet node ( T, A, 
Billet node ( T, A, 
Billet node ( T, A 
Billet node ( if A, 
Billet node ( T, A, 
Billet node ( T, A, 
ila 


ITELN; 
WRITELW (? For 


’ Yrcount,’ 


= Billet_node ( T, A, 1) + 


+ Billet node CT, A 
Billet. node [ if 


-~e + 


year(s) and ’, 


at 7 


Quarter,’ quarter(s) calculations.'); 
WRITELN; 
URITELN ¢! Fors ', Activity [ A 1)3 
GotoRC (6 1); 
WRITELN ( TOURS. wosccvcece')§ 


uRETELI 
bot ot ta 10) 
WRITELN (IFIRS} © SECOND «THIRD. «=sOFOURTH ~=—sFIFTH 


GotoRC (14, 9) 
VRITELW ('SEVEATH EIGHTH NINTH TENTH ELEVENTH 


ba! 

se 

GotoRt (10, X); 

Billet total { T, AJ 1 Billet_node [ T, A, 1.2% 
Billet node { 1, A, 2 17+ Billet node { T, A, 214 
Billetcnode ( T, A, 4} # Billetcnode ( T, A, 5) ¢ 
Billet mode CT, A, 6 1 + Billet_node ( T, A, 7 1 + 
Billet “node ( T, A, 8.) + Billet-node ( T, A, 9.) + 
Billet-node { 7, A, 101% Billek node ( f, A, tL 2 
Billet “node ( T, A, 12] + Billetcnode CT, A, 13.) ¢ 
Billet node ( 7, A, 14.1 Billetcnode (CT) A, IS i ¢ 
Billet node CT) Ay 16 1p 

WRITE (ROUND (Billet total { T, A 1):10)3 


FOR T := 2 10 6 DO 


BEGIN 

rs= + 105 
GotoRC (10, X); 
Billet total {( T, A) 1:2 Bille 


illet_node {[T, A, 1.4 
Billet node { T, A, 21 #°BLlet_node ( T, A, 32+ 
Billetcnode { T, A, 4.) + Billetcnode ( T, A, 5) ¢ 
Billet node { T, A, 6 1+ Blilet_ mode { T, A, 71 ¢ 
Billet“node ( T, A, 8.) ¢ Billet-node { T, A, 914 
Bllletcnode ( T, Ay 101 # Bille€ node Cf, A, 111 ¢ 
Billet _node { T, A, 12 ] + Billet node CT, A, 13] + 
Billet _node ( T, A, 14.1 + Billet node ( 7, A, 15 1 + 
Billet node CT, A, 16 J} 
WRITE (ROUND (Biilet total { T, A 1)s10); 
END 
ee 
sz 
Bote (16, X)4 
Billet total { T, A) 12 Billet_node ( T, A, 174 
Billet node ( T, A, 2.1 # Blilet_node { T, A, 3.1 + 
Billet“node ( T, A, 4.) # Billetcnode (1, A, 5) + 
Billetcnode ( T, A, & 1 Billetvnode CT, A, 71+ 
Billet node { T, A, 8 ] + Billet node ( T, A, 9) + 
Billet-node CT, A, 101 Bille node Cf, A, 11)? 
Billet-node ( T, A, 12 1+ Billetvnode (1, A, 13.) + 
Billetcnode ( T, A, 14.1 + Bliletvnode ( T, A, 151 ¢ 
Billet node (1) Ay 16 35 
WRITE (ROUND (Billet total ( T, A 1):10): 
FORT := 81012 00 
BEGIN 
12 + 103 
GotoRC (16, X); 
Billet total ('T, A) := Billet node { T, Ay 1.) ¢ 
Billet_node ( T, A, 2.1 4+ Billet node ( T, A, 3) + 
Billet node (CT, A, 4] + Billet_node ( T, A, 5) + 
Blilet_node ( T, A, 6 1+ Billet node ( T, A, 7 1+ 
Billet node ( 1, A, 8 ] + Billet node ( T, A, 9) + 
Billet_node CT, A, 10.1 + Billet node ( f, A, tl 1 
Billet-node ( T, A, 12) + Billetcnode CT, A, 13) + 
Billet-node ( T, A, 14] + Billetcnode ( T, A, 1S 1 ¢ 
Billet _node ( T, A, 16 ); 
WRITE (ROUND (Billet total CT, A 1):10): 


SIXTH); 
TWELFTH! )5 


END; 
REPEAT { until ansver correct } 
Center (19, ‘Bo you desire to see another activity breakout? (Y/N) '); 
READ (Kbd, Ansver); 
Ok_ansver :2 true; 
Correct _ansver (Ansver, Ok_ansver); 
UNTIL Ok _ansver = true} 
IF Ansver in ( 'Y*,*y?) THEN 
BEGIN 
S$ 
EMo,” gh} 
IF Ansver in ( 'N’,'n’ ) THEN Finished := true; 
UNTIL Finished = true; 
Clearscreen; 
END; (Disp Assign) 


esesrsesesdoorerescetodocreessevevevsrsresscsesposseresrersesrrerereraraeese' 
pesroooserrsodosospoosposterireovoposssosesesesesessoccososeseseseseos sisson 


{.pa) 
PROCEDURE Disp Tours; 
{ This procedure provides the tour v.s. all activities choices and displays ) 
VAR 

ooo’ 

Ok activity: Boolean; 
BEGIN 

Oto alae 

Ok activity := falses 

REPEAT { until finished ) 


Clearscreen 

GotokC (3, 5); 

CENTER (3,'Which Tour do you wish to see displayed?’)s 
WRITELN: WRITELN: 

URITELW (? TOUR 1) 
WRITELN: 

WRITELN (? 1, FIRST ys 
WRITELN (? 2, ys 
WRITELN (? 3. THIRD ys 
WRITELN (? 4. FOURTH 1) 
URITELW (? 5, BY 
WRITELN (? 6. SIXTH ys 
WRITELK (? 7, SEVENTH 1): 
WRITELN (? 9. EIGHTH ): 
URITELN (? 9, NINTH? )s 

ITELN (? 10. TENTH’): 

WRITELN (? 11, ELEVENTH?) 

WRITELN (? 12, TWELFTH); 


GotoRG (22, 5): 
WRITELN (TOUR: (type number <CR>)!); 


REPEAT ( Until Ok_tour and Ok_range both true) 
GotoRC (22, 14); 


($l-) READ ( T ) (91%) 5 {read TOUR number but first cancel 1/0 ) 
checking to orevent error if non integer } 
{ key is struck accidentally. Then turn back on } 
Ok tour s= (IGRESULT = 0); { TURBO PASCAL 1/0 error check. If input ) 
( vas in fact correct i.e. an integer } 
{ the TB function IGRESULT vill return a 0 } 


IF (T >= )) (T (= 12) THEN Ok_range := true; 
IF (1 1) OR (T > 12) THEN Ok range :2 false; 
IF WOT Ok tour OR NOT Ok_range THEN Wrong ansver; 


UNTIL (Ok tour AND Ok_range) = trues 
FOR A s= 'A' TO 'H! DO 


et node { T, A, 1) + 

Billet node € T, Ap 21 + Billet node ( T, A, 3) ¢ 

Billet node {( T, A, 4] + Billet_node (7, A, 3.) + 

Billet node ( T, A, 6 1 + Billet_node € T, A, 7) + 

Billet node ( T, A, 8 ) + Billet node { T, A, 91 + 

Billetvnode ( T, A, 10) + Billet node Cf, A, 11) ¢ 

Billet node ( T, A, 12 ] + Billet_node { T, A, 13.1] + 

Billet node ( T, A, 14.) + Billet node € T, A, 15.) + 

Billet node { T, A, 16 ); 
END; (for loop) 
Clearscreen; 
WRITELN (' For  ',¥rcount,'’ year(s) and ',Quarter,'’ quarter(s) calculations. '); 
WRITELN (! For: ', Tour ( TJ); 
URITELN (? r}, 
WRITELN (' Activity: Nuader of officers’); 
WRITELN (° I 
ete ' Professional Training : ', ROUND (Billet_total € T, A’ ah iF} 
rg Ea : Professional Education : ', ROUND (Billet_total { T, 'B! 9310); 
pole. : Washington 0C ¢ ', ROUND (Billet total € T, 'C’ iid) 
WRITELR (’ Shore (CONUS) ¢ ', ROUND (Billet total ( T, 'O’ 1:10); 
VRITELNW (° ') 
WRITELN (* Fleet Unit ¢ ', ROUND (Billet total € T, "E? J):10); 
WRITELN (° A 
WRITELN (' Afloat Staff ¢ ', ROUND (Billet total € T, 'F' 3):10); 
WRITELN (! 1 
WRITELN (' Shove (OUTUS) ¢ ', ROUND (Billet total ( T, '8’ J):10); 
WRITELN (! Hi 
WRITELN (' Separation ¢ ', ROUND (Billet total € 7, 'H?’ J):10); 
URITELN (° et: 


Tour_sua ( 7 ) 32 Billet total { T, 'A') + Billet total { T, 'B’) + 
Billet total { T, 'C'] + Billet_total € T, 'D') + 
Billet total € T, '€') + Billet total C T, 'F') + 
Billet total € 7, '6') + Billet total C T, iat 

WRITELN (’ Total officers : ', ROUND (Tour_sua (€ T 3):10); 


REPEAT { until answer correct } 
Blankline (24,1); — 
WRITE ('Do you desire to see another tour breakout? (Y/N) '); 
READ (Kod, Ansver); 

Ok_answer := true; 

Correct ansver (Ansver, Ok_ansver); 

UNTIL Ok_answer = true; 


IF Ansver in ( 'Y',*y’) THEN 
BEGIN 

Disp tours: 

END; 


IF Ansver in ( 'H?,'n’ ) THEN Finished := true; 
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UNTIL Finished * true; 
Clearscr een} 
END} (Disp Tours) 


Poesogssessecsooossserstegipisecersripetecsigiposscoosescererpstpespe reste ds. 
pg Sdoperg ser posec ddscosse ber dosed detosoesatecsstdobortoperces sss std o0otds bobo 0 


{.pa) 
PROCEDURE Disp paths _froa; 
( This procedure displays the transfer path percentages FROM ) 
VAR 
Ok selection, 
Ok tour, 
Ok activity: BOOLEAN; 
127 : CHAR 
RR INTEGER; 
BesIN 


Ok_tour := false; 
Ok activity 1:2 false; 
Finished := false; 


REPEAT {until finished) 


REPEAT { until tour/activity selection ok ) 
Ok _ selection 1:3 true; 
Clearscreeny 
“ var := "Which assignaent do you wish to see the transfer paths fron?’; 
ices} 
Clearscreens 
If (T = 12) THEN 
BEGIN 
Ok selection := false; 
Color ( white, red); 
Blankline (24,1); 
WRITE (’ There are no transfer paths from Twelfth Tour assignaents.’); 
DELAY (2000); 
Color ( white, blue); 


Blankline (24,1) 
END; { if tour 12 is chosen) 


[fF A in C'H') THEN 
BEGIN 


Ok selection t= false; 

Color ( white, red); 

Blankline (24,1); 

WRITE (’ There are no transfer paths from Separation assignaents.’); 
DELAY (2000): 

Color ( white, blue); 

Blankline (24,1): 

END} { if tour 12 is chosen) 


UNTIL Ok selection = true; 


Froa pathscrn 
Botokt (6 


3) 
vRITELN () Display for '); 
BotoRC 7 na 
WRITELN (’ ',¥rCount,’ years and’); 
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eee ae —Hem quarters’); 


WRITE Cob E T J,Activity CA 2); 
}s 
Te (ROUAD (Bi lL et_nodelT A,13),? officers! ); 
zine vill be transferred 
RR 1 2) 
FOR 17 s= "AY TO HY DO 


GotoRC ( R, 40); 
WRITE 10 typfour C Tet Jy Activity € 21 5 


WRITE (!) CF Urata o pathy A, 2213100)1410,'% 
pMire's ROUND node(t \i11)8CTransfér_pathtT, A 122)),' officers’); 
£3 t 


RR s2 RR + 33 

EMD; 

REPEAT {until answer correct ) 

Blankline (24, 1); 

URITE ('Do desire to see another transfer path breakout? (Y/N) °); 
READ (Kbd, Answer); 

Correct ansver (Ansver, Ok_ansver); 

UNTIL Ok_ansver = true; 


Ok tour := false; { to prevent procedure from ) 
Ok activity s> falses{ repeating endlessly ) 


IF Answer in ('N',°n') THEN Finishedt= True; 
UNTIL Finished = true; 
END; {Disp paths_froa) 


Possosrrsessoersecdedsocseseresorgcrprvoesscersrdvovsovoresepdsrsdessries ess 
pesedosoposesod pero rd sr do porrossovoborrrdddrprrerpe proto rr rosro rr rere ir pet ere sy. 


{.pa) 
PROCEDURE Disp paths to; 
{ This procedure displays the transfer path percentages 10 ) 
VAR 
Oktay eeceeoe 
Ok" actltity BOOLEAN; 
LZ + CHAR; 
R 
BR : INTEGER; 
Total: REAL: 
BEGIN 
Ok tour := false; 
Ok activity > false; 
Finished := false; 
REPEAT {until finished) 
REPEAT { until ok selection ) 
Ok selection := true; 


Clearscreens 
Chg_var t= 'Which assignaent do you vish to'see the transfer paths to?*; 
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Bchoices; 
Clearscr eens 


(fF (= 1) TREN 
BEG 


Ok selection := false; 

Color ( white, red); 

Blankline (24,193 

WRITE ( 0000" are no transfer paths to First Tour assignaents.’); 


DELAY (2008 

Color ( vhite, blue); 
Blankline (24, 1); 

END; ¢ if tour 12 is chosen) 


UNTIL Ok selection = true; 
To = heb 
goFoRe. (6, 45); 


GRITELN Display for ')s 
GotoRC (7, 35) 

URITELN(YrCoun »’ years and’); 
GotoRC (8, $5)5. 

WRITE (Quarter,’ quarters’); 

GotoRC (10, $5) 

WRITELN (7° TO!) 

GotoRC ( ok 

GRITELN our T l,Activity C4) 


GotokC ( 
WRITE Cmte sercentages reflect the 2 of’); 
Bot okt ( 19, 45) 
WRITE otiicets transferred OUT OF the’); 
GotoRC (20, 43); 
WRITE, ("indicated "FROM? assignment.’ 
{32 
RR s= i, 
Total := 03 


FOR 72 :© *A’ TO °6’ BO 
BEG 


mM 
GotoRC ( R, 1); 
WRITELN (FROM, Tour { T-1), Activity € 22 2)3 
GotoRe (RR, 1); 
WRITE (" Crate path 1, 22,A}8100) 2420, °2 ' 

ROUND ( (Billet nodelT-l, rh 1})8(Transfer_path(T21,22,A1)),? officers"); 
Total t= Total + ((Billet nodelT-1,22 poatteaneter. pathll2t, 12,A1))3 


2 R + 3; 
BR s= RR + "33 
END; 


GotoRC (13, 53) 
URITE (ROUND (Total), * officers’): 
REPEAT {until ansver correct ) 
Blankline (24,1); 
WRITE (Do desire to see another transfer path breakout? (Y/M) °); 
READ (Kod, Ansver); 
Correct ansver (Ansver, Ok_ansver); 
UNTIL Ok_ansver = true; 


Ok _tour s= false; { to prevent pire scuye fron ) 
Ok activity :2 falses( repeating endlessly ) 


IF Answer in C°N’,'n®) THEN Finisheds= True; 
UNTIL Finished = true; - 
END; € Disp paths to ) 


Mia SS 


pPeserecdresocecsesciossircvotpeovesoocstootisprssposrivssrorpesiriis certs se 
pespebesvosscesocesosbsvedcodssegesooresefocsterroetisesssesfeosot $50 20230095) 


{.pa) 

PROCEDURE Disp billets; 

{ This procedure provides the billet by tour length choices and displays } 
VAR 


Officer totals: REAL; 
Xs INTESER; 
cae) 


k_tow 
Of “ack ivitys BOOLEAN; 
BEGIN 


Ok_tour := false; 
Ok activity 12 false; 


REPEAT { until finished } 


Clearscreen; 
Cho_var := ’Which assignaent do you wish to see?’; 
ci olces} 
firkereah 
Seren atta, 
URITELN ( ter Yreount, Y year(s) ’, 
ter,’ quarter (8)?)4 
WRITELN (? Tour [7 pruney Al); 
WRETELM (? th of 


Tour Sate 
length {T,A},’ quarters.’)3 
WRITELN (’ = ss Officers assignedi") 


VRITELN; 

Officer totals i= 0; 
FOR X := 1 TO 16 DO 
BEGIN 


WRITELW (? — ,ROUND(Billet_node [ 
Officer_totals := Officer totals + Bullet’ ned 


END; { do loop) 


r)),! 1 Thength (2) 


ett, a, 


WRITELN; 
VRITELN (’ The total number of officers assigned is ’, 
ROUND (Officer _totals)); 


REPEAT { until ansver is correct ) 


Blankline (24,1); 
TE (Do you epine to see another assignaent? (Y/N) '); 


READ (Kod, Ansver); 
Correct ansver CAnsver , Ok_ansver); 
UNTIL Ok_answer = true} 
IF Ansver in ('N’,'n’) THEN Finished: =true; 
UNTIL Finished = true; 
Clearscreen; 


END; { Disp billet nodes ) 
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APPENDIX & 


THE FOLLOWING PROCEDURES ARE CONTAINED IN Meat DISK FILE “DATADUMP.PAS® 
(ZEITITTTIFILTITIIBITVITIITITITTITTITITIITLITITITTITTITITTITIII TI ITIT III 
SESSSESELSESUSES33¢9 53345333535) 


( This file contains the following procedures 
ltode 
pre. fung? 
Length _duep 
Hilts _duap 
Lolia_duap 


) 
PROCEDURE Node_duap; 


{ This ier eaice provides the displays and mechanices for 
duaping the n of officers per assigqnaent data 
from the program into a disk file } 


VAR 
Ok filer BOOLEAN; 
BEGIN 


Cees 
Ok_file := false; 


1F WOT Replace THEN 
BEGIN 


REPEAT { tet output filename is less than 8 letters) 

GotoRC (10,1 

WRITELN Ente: output filename (maxiaue of 8 letters)’); 

Color ( red, gritos 

GotoRC (13, 

WRITELH (° "uwiss YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO NOT USE '); 
r 

Color st nite blue); 

BotoRC (20, 13) 

READLN (Output nane)} 


IF (Length (Output name) > 8) THEN Wrong ansver 


ELSE 
oi! 
Ok file s= true 
ENB; ¢ if length of ansver over 8 letters } 


UNTIL Ok_file = true; 


Ok file s3 false 
Color ( white, blue) 
END: ( if replace false 


Blankline (24, AH 

“tin (? Duro! ng iflet node data to the file Gants ¢ ', Output _name); 
3 

Skip ahs 

Output_name := CONCAT (Output _nase,’.nod’); 


Zo 


Nodedata 18 aye hanes 
Strip (Nodedata 

ASSIGN (Bata “tile, Output nase); 
REWRITE (Data_file); 


FOR T s3 1 10 12 
BEGIN 
FOR A := 'A’ TO 'H? DO 
BEGIN 


FOR L := 1 10 16 DO 
BEGIN 


WRITE (Data file, T ); 

WRITE (Data. “tile, Skip); 

WRITE (Data “file, A} 

URITE (Data” “tile skip) 

WRITE (Data fil 

WRITE (Data ile Sis pt 

WRITELN (Data_ file e, Billet_node [ T, A, L 32820); 
END; { L loop”) 


END; { A loop ) 
END; { T loop ) 
CLOSE (Data file); 
END; { Node dung ) 


Posssoospovocssosvesestocoeesversvocevorsdevesisorsocver si spice siererri 2? oP 
resveroooodoopssssessocsorsrrtrossorrosisesrersrpoperesseroiperesrotterec sit ey 


{.pa) 
PROCEDURE Arc duap} 


{ This procedure provides the displays and mechanices for 
duaping the transfer path percentagde data to a disk file ) 


VAR 


Arc types STR 25 
Ok Tider BOOLEAN, 


BEGIN 


Cl ‘The 10 
Ok file := false; 


IF NOT Replace THEN 
BEGIN 


REPEAT { until output filename is less than 8 letters) 
GotoRC (10,10); 


WRITELN Oknter output filename (maximum of 8 letters)’); 
Color ( eae a 


GoteRC (13, 

WRITELA (? ‘unis YOU DESIRE TO QVERWRITE PREVIOUS DATA, DO NOT USE '); 
rlis 

Color C vhite blue); 

GotoRC (20, 14)4 

READLN (output + nane); 


IF (Length (Output name) > 8) THEN Wrong ansver 


ELSE 
BEGIN 
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Ok file s= true; 
ENS; 


UNTIL Ok file = trues 
Ok file 2 Sar 
Color ( white, blue); 
END; 


Blankline (24, 1)3 

me ( Dumping transfer path percentage data to the file ', Output nase); 
{2 

utp shaadi 12 CONCAT (Output naae,’.ard’); 

Arcdata :2 peel nat 

Strip (Arcdata 

ASSIGN (Data file,output nase); 

REWRITE (Data_file)s 


FOR T := t 10 12 0 
BEGIN 
FOR A s= 'A’ TO 'H! BO 
BEGIN 


FOR K s= 'A’ TO 'H? DO 
BEGIN 
WRITE (Data_file, T ); 
WRITE (Data file, Skip); 
WRITE (Data file, A); 
WRITE (Bata file, Skip); 
WRITE (Data file, K ); 
WRITE (Data file, Skip); 
URITELM (Dafa file, Transfer_path { 1, A, K 12612); 
END; { K loop ) 
EMD; € A loop } 
END; { T Loop ) 
CLOSE (Data file); 
END; 


Le rrsovoveoscvesessososccepesosporovsrresegsessorsseserrsodo Po etorr oid 990309 
295.099.9539 9090999899909999 959 9999959999990 589959 9999999999999 9 95000999 2903099 9) 


{.pa) 

PROCEDURE Length duap; 

€ This procedure provides the displays and mechanics for 
duaping the assignaent tour length data from the prograe 
to a disk file ) 

VAR 
Ok_files BOOLEAN; 

BEGIN 


Clearscreen: 
Ok file := false; 


IF MOT Replace THEN 
BEGIN 


REPEAT ( until output filename is less than 8 letters) 
BotoRC (10,10); 


a7 


WRITELN (’Enter output filename (maxiaum of 8 letters)’); 
store 8 ( red, Ay 


ahs YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO WOT USE '); 


(Output F bane) 
IF (Length (Output name) > 9) THEN Wrong ansver 


BEGIN 
Ok file s= trues 
END; 


UNTIL Ok_flle = trues 


Ok flle 32 pata 
Color ( white, blue): 
END; 


Blankline (24, tl 

ait (Duaping billet lengths data to the flle named : ', Output_nane); 
j 

Skip s= ' 's 

Output name := CONCAT (Output _nane,’. led’): 

Lengdaka :3 apa Nase; 

Strip (Lengdata); 

ASSIGN (Data file, Gutput_nane); 

REWRITE (Data flle); 


FOR T := t TO 12 OO 
BEGIN 


FOR A := 'A’ TO 'H’ DO 
BEGIN 
WRITE (Data flle, T ); 
WRITE (Data. “file, Skip); 
WRITE (Data flle, ; sity 
WRITE sah Ley aie 
WRITELN (Data_ a til «Bi let_leagth [£ 1, A 3:16); 
END; Al 
END; { T loop ) 
CLOSE (Data file); 
END; { length duap ) 


eerecvrodredorgicdocsscrrprerosososresrrrrpepvrrrrererseseorreseeror rer Por eee | 
$333353533333337F3T333F333535IFIFI333IFIF3IFI3IFI2FF 3533953533 33333337933333) 


{.pa) 
PROCEDURE Hille duap; 


{ This procedure provides the displays and aechanics for 
duaping the high limit data from the prograe to a disk file ) 


VAR 
Ok flies BOOLEAN; 
BEGIN 


Clearscreen: 
Ok_file ss false; 
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IF WOT Replace THEN 
BEGIN 


REPEAT { until output filename is less than 8 letters) 
BotoRC (10,10); 

WRITELW (Enter output filename (maxinua of 8 letters)’); 
rane! ( red, white): 


ore (13, 8) 
WRITELN (UNLESS YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO KOT USE’); 


Dirlist; 
Color ( vhite, blue); 
GotoRC (20, 13); 


(Output _nane)s 

IF (Length (Output name) > 8) THEN Wrong answer 
ELSE 

BEGIN 

Ok file s= trues 

ENS; 


UNTIL Ok file = trues 


Ok file s# ae 
Color ( white, blue); 


END; { if not replace ) 
Blankline (24, 1); 
WRITE (’Duaping high liait data to the file named : ', Output name); 
Output name :2 CONCAT (Output name,’ . hid’); 
Hilidata := Output _nane; 
Strio (Hilidata 


ASSI (Data file, Output nase); 
REWRITE (Data file); 


FOR T s= 1 10 12 00 
BEGIN 


FOR A s= ‘A’ TO °H? DO 
BESIN 
WRITE (Data file, T ); 
WRITE (Data file, Skip); 
WRITE (Data file, A); 
WRITE (Data file, S 
WRITELN (Dafa file, 
END; { A LOOP”) 
END; { T LOOP > 
CLOSE (Data file); 
EMD; ( Hiliwit dump ) 


boedsosesocversosossesrpespoporsosoversrosesosssse der sr rr orsorr 2 Pos 7092 2929: 
33333333333333333333333333333333333333333333333333333S33333333333359333337233) 


{.pa) 
PROCEDURE Lolia_duap; 


{ This procedure provides the display aad mechanics for 
duaping the low liait data from the program to a disk file ) 


VAR 
Ok_flles BOOLEAN) 


kip) 
Hitdeit { T, A 111020); 


Pa, 


Ht ag 
Ok file s= false; 


If NOT Replace THEN 
BEGIN 


REPEAT { until output filename is less than 8 letters) 

BotoRC (10, 10)5 

GRITELM (Enter output filenaee (naxiaua of 8 letters)’); 

Color ( tel Babe 

WRITELK "UNLESS 

TEL 0 YOU DESIRE TO OVERWRITE PREVIOUS DATA, DO WOT USE ’); 
rlis 

Color shite blue); 

GotoRC 13); 

READLN tovtput 4 name) 


IF (Length (Output name) > 8) THEN Wrong_answer 


ELSE 

BEGIN 

Ok file s= true; 
Eng 


i 
UNTIL Ok file = trues 


Ok file 33 ast 
Color ( white, blue); 
END; { if not reglace } 


ete (24, 15 
WRITE ( "Dusping 1by limit data to the file naned : ’, Qutput_name); 


Output sane :2 CONCAT (Output _naae,'. lod’); 
Lolida€a := Output _nane; 

Strip (Lolidata); 

ASSIGN (Data file, Output name); 


REWRITE (Data file); 
FOR T s= 1 70 12 DO 
BESIN 


FORA 1 °A? TO °H? DO 
BEGIN 
URITE (Data_file, T )s 
WRITE (Datafile, Skip); 
WRITE (Data file, ay 
WRITE (Data file, 
WRITELN (Dafa ile etlait t T, A )21020)3 
END; { A LOOP ) 
END; ( T LOOP ) 
CLOSE (Data _ file); 


END; { Lolinit dunp ) 
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APPENDIZA YW 


THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE "ANSWERS. PAS" 
RPPPPoSSSOPPSPIO PIP SRERSSIPSRISSSESPPP PSPSPS SLIP SPEPPPIPPPOO SPI PIPPI L999 | 
pe PeSSPEP>SOP>SSS>SSOSSES PES SSSPSeSesesPoesososroerrrerereorisereesi eters res eee, 


{ This file contains the following procedures 


Invahid_ansver 
Wrong _ansver 

Correct_choice 
Correct _ansver 
Another change 


} 
PROCEDURE Invalid_answer; 
( This procedure provides the warning message on the bottom of the screen } 
BEGIN 
peeling 2h, 1); 
Color ( white red): 
WRITE (' valid answer, try again.'); 
DELAY (2000); 
Color ( vhite, blue): 
Blankline (24, 1); 
END; { Invalid_answer ) 


PPSPPSESPS>P>>D>PSID>S>SPSPP SSIS SP SPPLESISS POETS PSPS I PPSET OPPO PSPSPS ESE 99: 
PSPS SPPPSPSPSSPSSIOLISIS>SIPLISSIPIPLOLIPPPPIPOPESOSPISIPPPSPIPISIST IPL IS S929. 
(.pad 
PROCEDURE Wrong _ansver; 
( This procedure provides the warning message at the bottom of the screen } 
BEGIN 

{make a red box) 

Color ( white, red); 

GotoRC (24, 15)} 

WRITE (? Your response is incorrect, please try again.'): 

Color ( white, blue); 

DELAY (2000): 

Blankline (24, 1); 
END; { Wrong_ansver } 
COIBIISFFTFITIIAIFFATSIIITTIITEITITIFISTTTAITT TITTIES TS TTT Ty 
TIPIITTTFIATTTTTETTTTTATT TITIES TTT TTT eee see eee T ez z3F 5) 
(.pa) 


PROCEDURE Correct _ansver; 


{ The procedure evaluates the yes/no response } 
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BEGIN 
IF Answer in { 'Y','y’, WN? 'n!) THEN Ok Answer s® true 
ELSE 
BEGIN 
Ok_Ansver := false: 
Wrong_ansver} 
END; { error condition if } 
END; { Correct_ansver)} 


CTEBTISTIIFIFITIITATIAIITITITIITITT ATTA T TST TTT TIT F333 
roPSD SIPS ESOP>DIPD>SIS SPIO PSSD SOD SSOP ODI SS ISO DIS PSODIS POSS PISS ISPS POPS OS DOT OS 


{.pa) 


PROCEDURE Correct choice; 
{ This procedure evaluates the response for correct choice ) 
BEGIN 

IF Choice in C First .. Last) THEN Ok_choice := true 

ELSE 

BEGIN 

Ok choice := False: 

Wrong_answer: 

END; { choice if) 
END; { Correct choice } 
(IIWBIFAFIIIFTTIFTIIFISSIATIFISTIIITTIITIITIITTIFTIITIITIITT IIIT ITTF Fy 
SIITSIITTIITIIFTIITFIIITIITTIITILITIIITIIFTIITIIFFTITTS ITTF IST IIFF 3ST F373) 
{, pa) 
PROCEDURE Another change; 
{ This procedure prompts the user for another change } 
BEGIN 

REPEAT { Until answer correct )} 

Blankline (24,1); 

WRITE (’ Do you desire to change another? (Y/N) : '): 

READ ( Kod, Answer); 

Ok_ansver := true: 

Correct ansver ( Ansver, Ok_ansver )s 

UNTIL Ok_answer = true: 


END;  { Another change } 
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APPENDIX W 


THE FOLLOWING PROCEDURES ARE CONTAINED IN THE DISK FILE °STORDATA. PAS” 
{S3ISIZITIFIIFITITIIIZITITITITITIIIF3 3333TIIITITIFIIIII3 
pesossorcotocossecosocssorerestoressoe dio 2020) 90 


{ This file contains the folloving procedures 


Save_data 
Replace data ) 


PROCEDURE Save data; 


{ This procedure provides the display and aechanics for 
storing data onto a disk file ) 


VAR 


Ansvers CHAR; 
Ok_ansver: Boolean; 


BEGIN 


Finished := false; 

Center (21,'Do you desire to save any of the data to a disk file? (Y/M) '); 
READ (Kbd, "hasver)} 

Ok_ansver := true; 

Correct_ansver (Ansver, Ok aasver ); 


IF WOT Ok_ansver THEN Save data; 
[F Answer in ( 'Y!','y? 2 THEN 
DESIN 


Clearscreen} 
BotokC (10, 1) 
ITELN: 


WR 
WRITELN (' = This te date provides yee with the opportunity to °) 
WRITELN (' «save the data as presently emia in the prograa af 
VRITELW (’ a disk file naned by you. '); 

Chg var 3= ‘Which data re he wish to save?! 

Choice zero := 'None/finished saving data.’;" 

GotoRC (23 


»38)} 
Pause; 
REPEAT {until finished ) 
Clearscreen; 
Bchanges} 
IF Choice = '0’ THEN Finished := trues 
IF Choice = '1' THEN Mode duap; 
IF Choice = '2' THEN Arc_dump; 
ice = '3’ THEN Length dump; 
IF Choice = '4° THEN Hilim_duap; 
IF Choice = °S’ THEN Lolia duap; 
UNTIL Finished = true: 
Replace data; 


END; { choice Y to save data ) 
END; ( save data procedure } 


Ges 


Pc esovecrediesscctsccccfeccsrertisressovessrreresesresororperizessese teases es | 
pofovordetossorssssdverbeabprddrrvvebostossosssositotbooserertor isda ber sete rd fo 


{.pa) 
PROCEDURE Replace datas 


{ This procedure provides the displays and aechanics for 
replacing data in the default data files ) 


Clearacreen 

Center (10, Nov that you have saved that data to your ovn file, do hind 

Center (19,'’desire to use any of it to replace the base data? (Y/N) ')3 
AB (kbd, Answer); 

Clearscreen; 

Ok_ansver := true; 

Correct_ansver (Ansver, Ok aasver)} 


IF WOT Ok_answer THEM 
BEGIN 

re data; 

END; { Grong choice if ) 


IF Ansver in ( 'Y’,’y’) THEN 
BEGIN 


Clearscreens 

Center (6,’ You have chosen to save the data as it is currently ')3 
Center (7,'caiculated by the prograa, to be the new initialization data.’); 
Color ( red, white) 

Center (9,’ This is a serious step.'); 

Color ( white blue) 

Center (11,’ You will be iosing the ’); 

Center (12,’ default data established in the model. '); 

GotoRC (23,30); 

Pause} 


REPEAT (untii finished } 

Clearscreeny 

Cho_var s= 'Which data file do you desire to change PERMANENTLY?’ 
Choice_zero :2 'None/finished repiacing data.’} 


Dchanges} 


If Choice = '1’ THEN Qutput_name :2 'Nodes!; 
IF Choice = '2' THEN Output_nase s= Arcs’ 

If Choice = '3’ THEN Output name := ate j 
IF Choice = '4' THEN Output name s> 'Hilimit’; 
IF Choice = 'S’ THEN Output name := 'Loliait’s 


IF Choice = '0' THEN Finished :* true 
ELSE 
BEGIN 


REPEAT 

Clearscreen; 

Color ( red, white); 

GotoRC (i2, 9): 

WRITE (? ARE YOU SURE YOU WANT TO REPLACE THE », Output_mame,’ DATA? (Y/N) ')3 
Coior ( vhite, blue); 

READ (Kbd, Answer); 

Correct ansver (Answer, Ok_ansver ); 

UNTIL O_ansver = true; 


If Answer in C°Y’,*y’) THEN 
BEGIN 


Replace := true; 
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IF Choice = '1' THEN Node dung; 
IF Choice = '2' THEN Arc dua) 
IF Choice © '3! THEN Length. duap 
[F Choice = '4’ THEN Hilia dung; 
IF Choice = '5’ THEN Lolia_duag} 


Finished s= false; 
Replace := false; 


END; { if answer is yes } 
IF Ansver in C'N’,'n’) THEN Finished s= false; 
ENO; {( IF Choice = '0' THEN Finished :2 true;) 
UNTIL Finished = true; 
END; { choice = Y if } 
EMD; { Replace data ) 
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